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Baseline  Implementations  of  the 
Standard  Line  EDI  tor  (SLED) 

Lyle  A.  Cox  Jr. 

Editor 


Department  of  Computer  Science 
Naval  Postgraduate  School 
Monterey,  California 


v ABSTRACT 

In  response  to  a  recognized  requirement  for  a  more  uniform  man 
machine  Interface,  especially  in  multiple  machine  networks,  a  standard¬ 
ized  text  editor  was  proposed  (1).  This  editor,  "SLED"  was  designed  to 
be  easily  Implementable  In  several  conmonly  available  higher  level 
languages.  This  document  reviews  two  baseline  Implementations  taken 
directly  from  the  SLED  standards  which  users  may  want  to  consider  when 
Implementing  SLED  upon  local  systems.  These  baseline  programs  were 
written  and  documented  with  portability  and  understandabll ity  as  goals. 


BACKGROUND 


During  the  Winter  of  1979  and  Spring  of  1980,  shortly  after  the 
Standard  Line  EDItor  definition  was  first  developed,  several  persons  at 
the  Naval  Postgraduate  School  undertook  Implementations  of  SLED.  Two  of 
these  implementations  —  the  documentation  and  the  code  —  are  repro¬ 
duced  here. 


Appendix  A  contains  the  SLED  Implementation  developed  by  C.  F. 
Taylor,  Jr.  on  an  IBM  360  system  In  FORTRAN.  Appendix  B  contains  an 
alternate  Implementation  developed  by  R.  M.  Burnham,  R.  J.  Coulter,  and 
S.  W.  Smart  In  the  PASCAL  language. 


Neither  of  these  Implementations  should  be  considered  "off  the 
shelf"  commercial  quality  software  ready  for  Installation.  These  sys¬ 
tems  do  however  provide  two  critical  portions  of  the  Implementation: 


1.  Each  contains  the  basic  code  in  a  "portable"  higher  level 
language,  and 


2.  The  code  of  each  Implementation  Is  written  for  readability. 


2 


and  the  documentation  has  been  written  to  allow  the  program  to  be 
adapted  to  any  system  with  a  minimum  of  difficulty. 


It  Is  hoped  that  these  baseline  programs  will  serve  to  facili¬ 
tate  the  Implementation  of  the  SLED  man  machine  Interface  on  a  variety 
of  machines. 
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(1)  "The  Text  Editor  As  A  Uniform  Man/Machine  Interface.  A  Proposal  for 
a  Standard  Editor."  L.  A.  Cox  Jr.,  Naval  Postgraduate  School  Report 
NPS52-80-001  (Feb.  1980). 


Appendix  A 

SLED  FORTRAN  Implementation 
(by  C.  F.  Taylor  Jr.) 

The  purpose  of  these  notes  Is  to  briefly  describe  the  accompany¬ 
ing  FORTRAN  Implementation  of  SLED. 

SLED  FORTRAN  Version  F0RT1.1  was  Implemented  on  an  IBM  360/67 
computer  under  the  CP/CMS  time-sharing  operating  system  at  the  W.  R. 
Church  Computer  Center  at  the  Naval  Postgraduate  School ,  In  a  superset 
of  IBM  FORTRAN  IV,  Level  G,  which  Included  the  "IF-THEN-ELSE"  and 
“WHILE-DO"  constructs  of  WATFIV-S.  The  addition  of  these  two  constructs 
greatly  simplified  the  writing  of  the  program  and  were  Implemented  with 
the  aid  of  a  preprocessor  written  by  this  author.  Standard  FORTRAN  ver¬ 
sion  (the  output  of  the  preprocessor)  Is  shown  on  the  following  pages. 

This  version  was  compiled  using  an  IBM  FORTRAN  IV/G  compiler. 

The  package  was  Implemented  using  the  utility  routines  shown  on 
pages  A37-A40  of  the  listings.  The  'TDISK  EXEC"  module  was  used  to 
obtain  the  required  disk  space  for  the  4000  line  (320K  byte)  temporary 
work  file.  It  Is  assumed  that  this  work  space  would  be  provided  at  the 
system  level  In  any  actual  Implementation  of  SLED.  Because  It  is  a 
direct-access  disk  file,  sufficient  space  must  be  avallabe  In  advance 
for  the  maximum  capacity  of  the  editor,  which  In  this  case  Is  4000 
lines*  This  figure  was  selected  somewhat  arbitrarily;  CP/CMS  gives  the 
user  800  bytes  per  track  (IBM  2314),  using  the  remaining  space  for  over¬ 
head,  so  at  80  bytes  per  line,  4000  lines  represents  400  tracks. 
Installations  which  do  not  need  to  edit  such  large  files  could  reduce 
disk  requirements  by  further  limiting  the  capacity  of  the  editor  as  fol¬ 
lows: 


1.  Do  a  global  substitution  to  replace  the  string  '400 O'  In  the 
program  by  the  new  capacity. 

2.  Modify  the  'DEFINE  FILE'  statement  In  subroutine  MEMORY  as 
necessary. 

3.  Alter  the  FILEDEF  statement  in  ' SLED1  EXEC'  (or  the 
equivalent  action  on  another  system)  to  request  less  disk  space. 

The  basic  data  structures  used  are  as  follows:  The  file  to  be 
edited  (unless  a  new  file  Is  being  established)  Is  read  In  sequentially 
by  subroutine  OPEN  and  stored  In  the  work  file  (described  above)  which 
Is  conceptually  a  4000  line  by  80  column  array.  All  references  to  the 
work  file  are  made  through  calls  to  subroutine  MEMORY.  The  lines  of  the 
work  file  are  not  necessarily  kept  In  order.  A  4000  element  from  the 
file  Is  determined  by  popping  the  top  element  from  the  stack.  This 
value  Is  then  recorded  In  the  4000  element  array  LPTR.  LPTR(I)  then 
always  gives  the  address  In  the  work  file  of  the  Ith  line  of  the  text 
file.  As  11nd$  |are  deleted,  their  addresses  are  pushed  back  onto 


'  / 
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additions  and  deletions  of  lines  by  manipulating  pointers  rather  than 
the  text  Itself.  Still,  the  work  file  may  be  accessed  sequentially  by 
using  LPTR(I)  as  the  Index. 

Input  from  the  terminal  Is  buffered  in  a  circular  queue  in  sub¬ 
routine  GETLIN.  This  permits  the  "stacking"  of  more  than  one  command 
per  line  at  the  terminal.  Calls  to  GETLIN  return  a  line  from  the  head 
of  the  queue  or,  if  the  queue  is  empty  it  reads  in  a  new  line  from  the 
terminal . 

The  QUIT  subroutine  writes  the  work  file  sequentially  (using 
LPTR  as  an  index)  to  the  output  file. 

Additional  notes  which  may  be  of  interest  to  the  local  implemen¬ 
tor  follow:  (including  deviations  from  the  SLED  standard). 

1.  Integer*2  variables  were  used  for  all  character  storage  (and 
for  the  two  large  arrays  STACK  and  LPTR).  Only  one  character  was  stored 
per  word. 


2.  Because  FORTRAN  reads  only  fixed-length  formatted  records 
from  the  terminal,  the  carriage  return  cannot  be  used  to  terminate  a 
string.  This  means  that  * DS ‘  and  1 RS '  commands  must  use  the  logical 
terminator  character  (default  '$')  to  terminate  strings  and  that  the 
'RS'  command  should  be  used  as  follows:  RS$strl$str2$. 

3.  The  'RS'  command  replaces  only  the  first  occurrence  of  a 
string  In  a  line  because  of  this  author's  firm  conviction  that  to  allow 
only  multiple  substitution  would  be  dangerous.  In  an  editor  such  as 
this  without  a  TAB  function,  a  common  string  substitution  would  be  to 
replace  one  blank  with  two  blanks  on  a  line.  What  would  happen  if  this 
were  done  for  every  occurrrence  of  a  blank  on  the  line  is  too  horrible 
to  contemplate. 

4.  The  CP/CMS  operating  system  and  IBM  FORTRAN  required  that 
filenames  be  handled  external  to  the  program  itself.  The  routine  'SLED 
EXEC'  executes  the  simple  program  'SLEDVERS'  when  'SLED'  Is  typed  to 
alert  the  user  to  the  required  entry  procedure,  'SLED1  <f11ename>  <f11e- 
type>'.  SLED!  EXEC  then  Invokes  the  actual  edit  program,  SLED2.  The 
filename  given  the  program  Internally  Is  meaningless  and  provided  only 
for  cosmetic  reasons.  This  system  requires  that  only  one  file  be  opened 
per  session. 

5.  Another  limitation  of  FORTRAN  required  that  the  program  read 
Input  from  the  line  following  the  program  prompt,  not  a  serious  problem. 


SLED  -  STRUCTURED  FORTRAN 


on  o  n  a  o  oonnnonnnonr.no 
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L6:  SLED  FORTRAN  Tl  NAVAL  PO  »Ti;h  AUU  %  T  L  SUICPL 

STANDARD  LINE  ED  I TUR — FORT  RAN  I MPLEMFNT  AT  UN 

SLED  VERSION  FORTl.l  NPS  MQNTERCY  8004.U 
PROGRAMME.)  BY:  L.  F.  TAYLUR,  JR.,  CODE  55TA 

FUR  FURTHER  INPURMAT ION  SEE  NPS  TECHNICAL  RFPORT 
NPS  52-80-001  8 Y  L.  A.  COX,  JR. 


MAIN  PROGRAMS 

READS  IN  COMMANDS  AND  CALLS  THE  APPROPRIATE  SU8RT.iT  I NP 
IMPLEMENTS  THE  ’•EDIT"  MODE 

COMMON  /BLKl / I N, OUT 
l  / 3LK5/MF LAG, E RRCT , CURL  I N 

INTEGE  R*2  Cl,C2,A,C,D,L,M,0,Q,R,S,T,V,[NLINE ,  RLNK 
INTEGER  IN ,OUT , E  KRCT , CURL l N , NC 
DIMENSION  INLINEI80) 

LOGICAL  FLAG, OPE NFL ,MFLAG 

DATA  A/ • A* / ,C/' C ' /»0/'D' /, L/'L •/ ,M/»  M' / ,0/'0'/ ,Q/ ' Q' /,R/' R ' / , 
„  1  S/*5'/»T/'T'/,V/'V*/ , 8LNK/ •  •/ 

2000  FORMAT  l •  L>* ) 

2010  FORMAT  (•  -INVALID  COMMAND-  •  ,2AI I 
2020  FORMAT  <»  -NO  TEXT  FILE  OPEN-') 

2030  FORMAT  (•  -ONLY  ONE  FILE  CAN  BE  OPENED  PER  SESSION  IN  THIS  ’, 
1  'VERSION  OF  SLED-') 

EDIT  MODE — WRITE  PROMPT 
WHITE  I  OUT, 2000) 

CALL  GETLINI INLINE, NC) 

Cl  »  INLINE (1) 

C2  *  INLINEI2) 

FLAG  GOES  FALSE  AFTER  'QUIT' 

FLAG  »  .TRUE.  * 

OPENFL  GOES  TRUE  AFTER  FILE  IS  OPENED 
0P6NFL  *  .FALSE. 

MAIN  EDIT  LOOP 
WHILE  I  FLAG)  DO 

IF  I .NOT. (OPENFL  .OR.  IC1.EQ.0I  .OR.  (Cl.EO.M) 
l  .UR.  ICl.E3.VH)  THEN  00 

FILE  NOT  OPEN  AND  THIS  IS  NOT  AM  'OPEN*  COMMAND 
OR  A  'MENU'  OR  'VERSION*  REQUEST 
WRITE  I01JT ,2020) 

ELSE  00 

EMULATE  CASE  (SWITCH)  STATEMENT  TO  PROCESS  COMMANDS 
IF  ICl  .EQ.  BLNK )  GO  TO  230 
IF  ICl. ME. L)  GO  TO  10 
CALL  LI  ST I l NL INF ) 

,  GO  TO  200 

10  CONTINUE 

IF  (CI.NE.S)  GO  TO  20 

CALL  SCPEENllNL INE) 

,  .  GO  ID  200 

20  CONTINUE 

IF  (IC1.NE.RI.0R.IC2.NE.S) )  GO  TO  30 


i 
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CALL  R  S  (  I  ML  I N  €  I 
GO  TO  200 

30  CONTINUE 

IF  UCl.NE.R). OR. (C2.NE.LT  J  GO  TO  40 
CALL  RLUNLlNE) 

GO  TO  200 

40  CONTINUE 

IF  (<Cl.NE.A).0R.(C2.NE.L))  GO  TO  50 
CALL  AH  INLINE) 

GO  TO  200 

50  CONTINUE 

IF  <(C1.NE.D).0R.(C2.NE.S)  )  GO  TO  60 
CALL  OSI INLINE) 

GU  TO  200 

60  CONTINUE 

IF  (Cl.NE.G)  GO  TO  70 
CALL  JUIT 
FLAG  *  .FALSE . 

GO  TO  200 

70  CONTINUE 

IF  (Cl.NE.V)  GO  TO  80 
CALL  VERS 
GO  TO  200 

80  CONTINUE 

IF  (Cl.NE.MI  GO  TO  90 
CALL  MENU 
GO  TO  200 

90  CONTINUE 

IF  (Cl.NE.O)  GO  TO  100 

IF  (OPENFL)  THEN  DO 
WRITE  (OUT, 2030) 

ELSE  00 

CALL  OPEN 
0P6NFL  «  .TRUE. 

END  IF 
GO  TO  200 

100  CONTINUE 

IF  (ICL.NE.C).0R.(C2.NE.TU  GO  TO  119 
CALL  CT< INLINE) 

GO  TO  200 

110  CONTINUE 


C 

200 


C 


IF  PROGRAM  GETS  HERE,  COMMAND  IS  INVALID 
WRITE  (0UT.20L0)  Cl,C2 
ERRCT  -  ERRCT  ♦  l 
END  CASE 
CONTINUE 

IF  (ERRCT.GE.2)  THEN  DO 
CALL  MENU 
ERRCT  *  0 
END  IF 
ENO  IF 

IF  (FLAG)  THEN  DO 
GET  NEXT  LINE 

IF  (.NOT.MFLAGI  WRITE  (OUT, 2000) 
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end  while 

STOP 

6NO 


Cl 
C  2 

END  IF 


CALL  GETLINl INLINE, NC) 


INLINE (l » 
INLINE (2) 


BLOCK  DATA 

COMMON  /3LK 1 /  IN, OUT 

!  hi  LK3  /  TFILE 

!  /3LK4/  TCHAR 

I  /BLK5 /  MFLAG, ERRCT, CURLIN 

INTEGERS  TCHAR 

INTEGER  IN,OUr, TFILE, ERKCT, CURL  IN 
LOGICAL  MFLAG 

DATA  IN/5/.OUT/6/  ,  TCHAR/* i ' /»ERRCT/0/,MFLAG/ . FALSE./, C  JR l I N  /  l  / , 
TFILE/2/ 


SUBROUTINE  LISTICLINEI 
OISPLAVS  TEXT  TO  THI 


2100 

2110 

2120 


TERMINAL 


COMMON  /3LK 1/  IN, OUT 

/3LK2/  LPTR,MAXLIN,E3F 
/ BLK5/  MFLAG, ERRCT, CJRL IN 
INTEGER  *2  BLNK,LPTR, COMMA  ,OUTU  N,CLI  ME 

INTEGER  IN, OUT,  I  ,  J,Nl  ,N2  ,  MAXL  IN  ,  EOF  ,  ERRCT  ,  CURL  I N  ,  F6  TCH 
LOGICAL  MFLAG, EFLAG 

UIMENSION  CLINE! 80) .OUT L INI  801 ,LPTRI 40001 
OATA  8LNK/ •  •/ .COMMA/' /.FETCH/O/ 


FORMAT 

FORMAT 

FORMAT 


■  /  iLUnnAf  *  ,  *  f  «  —  u  I  ' 

-INVALID  COMMANO-') 

• ,I4,1X,80AI) 

-EOF-' ) 


IF  COL  2  IS  BLANK,  PRINT  CURLIN  AND  EXIT 
IF  ICLINE! 2)  .Ed.  BLNKI  THEN  00 

CALL  MEMORY"  { FE TCH  , OUT  L  I N,  L P TR  (  CURL  I  N)  ) 
WRITE  (OUT, 2110)  CURLIN,  OUTLIN 
ELSE  00 

NOW  CHECK  FOR  LINE  NUMQERS  IN  COMMAND 
CALL  COMLINI 2, CLINE, NI ,N2,EFLAG) 

IF  INI  .LE.  0)  Nl  *  l 

IF  (Nl  .GT.  N2I  EFLAG  »  .TRUE. 

IF  (Nl  .GE.  EOF)  EFLAG  =»  .TRUF. 

IF  (EFLAG)  THEN  00 

ERRCT  *  ERRCT  «•  l 
WRITE  (OUT, 2 1 00) 

ELSE  00 

ERRCT  »  0 
I  »  Nl 
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WHILE  UI.LE.N2).ANO.<  l.LT.FOF))  DU 

CALL  MEMORY  (FET  CH  .OUT  U  N ,  LP  TM  I  )) 

WRITE  OUT,  2  113)  I,  TUTLIN 
CURLIN  ■  I 
l  «  l  l 
ENO  WHILE 

IF  I  l.GE.EOF)  WRITE  (OUT, 2120) 

ENO  IF 
END  IF 
RETURN 
ENO 


1 

2 


2  l JO 
2110 
2120 


C 

c 


SUBROUTINE  SCREENICL INE) 

DISPLAYS  20  LINES  BEGINNING  WITH  COLLIN  OR  OTHER  SPECIF  Hn,  iINC 

COMMON  /SLKi/  IN, OUT 

/BLK2/  LPTR,MAXL1N,E3F 
/BLK5/  MFLAG.ERRCT, CJRL IN 

INTEGER  IN » OUT ,MAXLIN ,EOF  »E  RKCT ,CURL I N, l * Nl ,N2» LIMIT, 

FETCH, N 

INTEGER*2  CLINE, LPTR,OUTLlN,ftLNK 
LOGICAL  MFLAG, EFLAG 

DIMENSION  CLINE! 801 ,OUTLIN{ SO ) , L P TR ( 4000 1 
DATA  BLNK/»  •/, FETCH/O/ 

FORMAT  l*  -INVALID  CQMNANO- * ) 

FORMAT  <•  • ,l4,IX,8QAi» 

FORMAT  (•  -EOF-* I 

EFLAG  ’  .FALSE. 

FINO  OUT  WHETHER  USER  SPECIFIED  A  LINE 
IF  (CLINE! 2) . NE.BLNKJ  THEN  00 

CALL  COMLlN! 2,CLIN6fNI ,N2, EFLAG) 

IF  (Nl  .LE.  0)  Nl  »  I 
IF  (HI  .GE.  EOF)  EFLAG  »  .TRUE. 

IF  I .NUT., EFLAG)  CURLIN  »  Nl 
ENO  IF 
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IF 


00 


THEN  _ 

»  fcRRCT  ♦ 
(OUT, 21001 


ENO 

RETURN 

END 


(EFLAG) 

ERRCT 
WRITE 
ELSE,  00 

ERRCT  *  0 

'•  LIMIT  *  MIN01CURLIN+19.E3F-1 ) 

00  10  I  *  CURLIN, LIMIT 

CALL  MEMORY l FETCH, OUTL I N,LPTR ( I ) ) 
WRITE  (0Ur»2110)  1 , 00 T L IN 
CONTINUE 
CURLIN  »  LIMIT 

IF  (LIMIT  « E<4.  EOF-ll  WRITE  (OUT, 2120) 
IF 
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C 

C 

c 

c 


SUBROUTINE  RLI CLINE  I 

REPLACES  CURRENT  LINE  OR  THE  SPECIFIED  LINE  OR 
4NV  NUMBER  UF  LINES 

CCMMON 


1 

2 


2100 


10 

20 


LINES  «ITH 


/BLKl/  IN, OUT 
/BLK2/  LPTR ,MAXLI N,EOF 
/BLK5/  MFLAG.ERRCT.CJRLIN  ,  ,,  , 

INTEGER  IN  »UU I *MAXL IN ,EQF  ,E  RRCT  ,  CURL  IN,  'l,  Nl  ,N2»  I ,  J,L  !•' '•  I  T  , 

St'jRt 

INTEGER *2  CL INE,LPTR,BLNK 

logical  mf  lag, eflag 

DIMENSION  CLINE! 80),LPTR( 4000) 

DATA  BLNK/ *  •/, STORE/1/.  „ 

FORMAT  (•  -IMVALIO  COMMAND- * ) 

N 1  *  CURLIN 

DETERMINE  WHICH  LINE(S)  TO  REPLACE 
If  I  CL l NE( 3  I • NE. BLNKI  THEN  DO 

CALL  COMLINI i. CLINE, N1 ,N2,EFLAu) 

IF  (Nl  .LE.  0)  EFLAG  a  .TRUE. 

IF  INI  • GE.  E0F1  EFLAG  *  -TRUE. 

IF  (.NOT.  EFLAG)  CURLIN  *  Nl 
E.NO  IF 

THEN  00 
*  ERRCT  ♦  1 
I  OUT, 2 100) 


IF 


(EFLAG) 

ERRCT 
*R  I  TE 
ELSE  DO  _ 

IFRfN2*.G6.  EOF)  N2  «  EOF,  - 
REMOVE  UESIGNATEO  LINES 
N  *  N2  -  NL  ♦  i 
00  20  I  -  1 » N 


I 


trIi 


LIMIT  •  EOF 
CALL  PUSHlLPTR 
DO  10  J  *  Nl 
LPTRCJJ 
CONTINUE 
EOF  »  EOF  - 


. . Nil) 

Nl, LIMIT 
‘  LPTRI J*l 1 


nowTin^ut  replacement  lines 


ENO 

RETURN 

ENO 


CALL 

IF 


INPUT 


SUBROUTINE  AL( CLINE) 

INPUT  TEXT  AFTER  LINE  N 
COMMON  /BLK 1/  IN, OUT 
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oonnn  no 


FILE:  SLED 


FORTRAN  n 


NAVAL  POSTGRADUATE  SCHOOL 


1  /UL*5/  MFLAG,  ERRCT«CJRL  IN 

INTEGER*?  BLNK, CLINE 

INTEGER  IN.HUT ,1 , J.N,Nl »N2  *  ERRCT , CURL  IN 
LUG  I  CAL  MFLA>,,EFLAG 
DIMENSION  CLINE! 80) 

OATA  BLN*/*  •/ 

2100  FORMAT  (•  -INVALID  COMMAND-*) 


EXTRACT  LINE  NUMBER  FROM  COMMAND  LINE 
CALL  COMLINI  i, CLINE, Nl, N2.E FLAG ) 

IF  INI  .LT.  0)  EFLAG  *  .TRUE. 

N  *  Nl 

IF  ! EFLAG)  THEN  DU 

ERRCT  *  ERRCT  *  l 
WRITE  (OUT  , 2 100) 

ELSE  00 

ERRCT  •  0 
CURL  IN  "  N  ♦  t 


END  l£ALL 
RETURN 


INPUT 


END 


SUBROUTINE  OS (CLINE) 


2100 

2110 

2220 

2250 


PART  OF  SLED  PACKAGE 

DISPLAYS  ALL  LINES  CONTAINING  THE  DESIGNATED  STRING,  POSSIBLY 
LIMITED  TO  LINES  N  THROUGH  M. 

COMMON  /BLKl/  IN, OUT 

/BLK2/  LPTR.NAXL IN»EOF 
/8LK5/  MF LAG, ERRCT ,CURLIN 

INTEGER  IN.OIJT.MAXLIN,  EOF,  ERRCT,  CURL  IN,N1,N2,NC,  FETCH,  MCI 
INTEGER*2  CLINE, LPTR,BLNK, STRING, LINE 
LOGICAL  MFLAG, EFLAG, MATCH.FOUND 

DIMENSION  CLINEC80), LINE! 80 ),LPTR( 4300), STRING(80) 

OATA  BLNK/ *  •/, FETCH/O/ 

FORMAT  (•  -INVALIO  COMMAND-*) 

FORMAT  (*  • ,I4,1X,80A1) 

FORMAT  ('  OLD  STRlNG?>*) 

FORMAT  (•  -NO  STRING  FOUND-*) 

OEFAULT  VALUES 
FCUNO  «  .FALSE. 

EFLAG  *  .FALSE. 

Nl  »  1 

N2  »  EOF  -  l 

DETERMINE  WHETHER  Nl,N2  WERE  SPECIFIED  BY  USER 
IF  (CLINEI3)  .NE.  BLNK)  THEN  DO 

CALL  COML INI 3, CLINE, Nl ,N2, EFLAG ) 

IF  (Nl  .GE.  EOF)  EFLAG  *  .TRUE. 


EOF)  N2 
01  Nl  * 


EOF  - 
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tic*  0C1000 


9 


FILE:  SLEO 


FORTRAN  T 1 


NAVAL  POST  JR  ADUA  IE  SCMf’Cl 


IF 


ELSE 


( EFLAG) 
gRKCr 
wrc  rt 

DU 

ERRCT 
FETCH 


THEN  OU 
=  ERRCT  ♦  1 
(OUT, 2100) 


STRING;  ISS'JE  PROMPT  IF  NECESSARY 
IF  (.NOT.  NFLAG)  WRITE  (OUT ,2220) 

CALL  GETLIN  (STRING, NO 
IF  (NC  .LE.  0)  THEN  00 
ERR  C  T  *  ERRCT  ♦ l 
WRITE  (OUT, 2100) 

ELSE  00 

°°  2°CALL  NfcMORY( FETCH, LINE, LPTR(  I)) 

CALL  SEARCH( LINE, String, NC, MAT cm, MCI) 
IF  (MATCH)  THEN  DO 

FOUNO  *  .TRUE.  .  _ 

WRITE  (OUT, 2110)  I, LINE 


20 


END 

END  IF 
KE  TURN 
ENO 

SUBROUTINE 


ENO 
CONTINUE 
IF  (.NUT. 
IF 


RS(CLINE) 


CURL  IN  *  I 
IF 

FOUND)  WRITE  ( GUT , 2250 ) 


1 

2 


REPLACESSTHE  F  IRS  ^OCCURRENCE  OF  STRlNGl  WITH  STRING2  UN 
CURRENT  LINE  UR  WITHIN  THE  SPECIFIED  RANGE  OF  LINES 

COMMON  /BUU/  IN, OUT  .  „  _  » 

/8LK2/  LPTR,MAXLIN,E0F 


THE 


INTEGER2 I N^OUT?MAXL|N»|oFjERRbT^CURL IN, Nl ,N2, I, J. 


.  ,MAXL*N*fcUr  ftKKLi  •  J. 


K,L,M, 


MizZKi ^tHgnbS5?;!h?S^}:!Tr5fiW?!sTR2,ao 

DATA  BLNK/*  • /.FETCH/O/ fSTORE/ 1/ 

LOGICAL  MFLAG.FOUNO.MATtH.EFLAG 
FORMAT  (•  -INVALID  COMMANO-*) 

FORMAT  (*  » ,I4,1X»80AII 
FORMAT  <•  OLD  STRING?>*  ) 

FORMAT  («  NEW  STRING7>'I  . k 
FORMAT  (•  -NO  STRING  FOUND-*) 

OEFAULT  CUNUIT IONS 
Nl  «  CURL IN 
N2  *  Nl 

EFLAG  *  .FALSE.  .  , 

INTERPRET  COMMANO  LINE  ^ 

IF  (CLINE (3). NE. BLNK)  THEN  DO 

CALL  C0MUN(3, CLINE, Nl  ,N2, EFLAG  ) 

IF  (Nl  .LE.  0)  EFLAG  »  .TRUE. 


2100 

2110 

2230 

2240 

2250 


) » LINE ( 30  ) 
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ooooo 


FILE:  SLEO 


FORTRAN 


NAVAL  POST'S#  AQUATC  SCHffil 


IF  INI  .OE.  EOF)  E FLAG  *  .TRUE. 

IF  I  M2  . GE .  EOF)  N2  *  EuF  -  l 
END  IF 

IF  (EFLAG)  THEN  DO 

ERRCT  *  ERRCT  «■  I 
WRITE  IflUTt2lOO) 

ELSE  00  , 

C  f)  ^  T  ^ 

READ  IN  TWO  STRINGS ;  PROMPT  IF  NECESSARY 
IF  (.NOT.  iFLAG)  WRITE  I0UT,2230> 

CALL  GETLIN(  STR  L.NCL  ) 

IF  (NCI  .LE.  6)  EFLAG  *  •  7$UE»  . 

IF  (.NUT.  MFLAG)  WRITE  (OUT, 2240) 

CALL  GETLINI STR2.NC2) 

IF  (EFLAU)  THEN  00 

ERRCT  *  ERRCT  ♦  I 
WRITE  (OUT, 2100) 

RETURN 
END  IF 

NOW  FIND  STRINGl 
FOUND  *  .FALSE. 

00  50  K  *  Nl,N2  _  . . . 


6N0  I 
NOW  F 
FOUND 
00  50 


CALL  MEMORY (FETCH, LINE, LPTR(K) ) 

CALL  SEARCH(LtNE, STRL, NCI, MATCH, MCI) 
IF  (MATCH)  THEN  00. 

NOW  MAKE  SUBSTITUTION 
J  *  MCI 

FOUND  *  .TRUE. 

DELETE  STRINGl 
OO  20  I  *  i»  NC 1 

00  10  M  *,J,79 

LINE (Mi  *  LINEIM+l) 
CONTINUE 
CONTINUE 

NOW  MAKE  ROOM  FOR  STR ING2 
IF  ( NC2  .GT.  01  THEN  00 
00  40  L  •  l ,  NC2 
M  *  81  -  J 


M  *  81  -  J 
00  30  I  »  2.M 

LINEI82-I)  *  LIMEI81-II 
CONTINUE 
CONTINUE 

NOW  INSFRT  NEW  STRING 
00  45  l  -  l » NC2 

LINEIJM-I  )  =  STR2II  ) 

CONTINUE 
ENO  IF 

STORE  REVISED  LINE 

CALL  MEMORY! STORE .LINE, LPTRIK) ) 

01  SPLAY  REVI SEO  LINE 

^Se'WI^  f’WW  LHE  TO  ENABLE 
DISPLAY  OF  EACH  LINE  IN  WHICH  A  STRING  (AS 
REPLACED 
CURLIN  *  K 


BEEN 
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FILE:  SLED 


FORTRAN  Tl 


NAVAL  mST.RAiKJATC  SCH'lil 


2100 

2200 


END  IF 

cun  rirvuE 

IF  (.NOT.  FOUND)  WRITE  (OUT* 2230) 

END  IF 
RETURN 
END 

SUBROUTINE  CT 

PART  OF  SLED  PACKAGE  _ 

CHANGES  THE  MESSAGE  TERMINATOR  TO  ANY  VALID  CHARACTER 

COMMON  /DLKl /  INT,OUT 

L  /HLK4/  TCHAR 

»  / BLK5/  mplAG.ERRCT .CURLIN 

INTEGER  l  V,UUTtc«RCT, CURLIN. NC 
INTEGER  *2  TCHAR,  INUN.BLNK 
LOGICAL  MFLAG 
OIMLNSIJN  INLINI80) 

DATA  BLMK/ •  •/ 

FORMAT  (•  -INVALID  COMMAND-1) 

FORMAT  (•  TERM1NA  TOR?>* ) 

IF  (.NOT.  MFLAG)  THEN  00 
ISSUE  PROMPT 
WRITE  (OUT, 2200) 

END  IF 

CALL  GErLINUNLIN.NC) 

IF  UNC.EO.O).  OR.  (INLINIII.EQ.BLNK) )  THEM  DO 


ERRCT 

WRITE 


WRITE  ( 
ELSE  DU 

TCHAR  * 
ENO  IF 
RE  TURN 
END 

SUBROUTINE  MENU 


ERRCT  1 
(OUT, 2 100) 


INLIN(l) 


PART  Of  SLED  PACKAGE 
PROVIDES  USER  WITH  A 
ANO  THEIR  FORMATS. 

COMMON  /BLKl/  IN, OUT 

Integer  in, out 

200  FORMAT  J*  SLED  COMMAND  I 
1  ‘STRING  REPLACEMENT*  i 


SUMMARY  OF  AVAILABLE  COMMANDS 


MAT  J*  SLED  COMMAND  SUMMARY:*//*  LINF/TE XT  INSERT* ,T3D, 
•STRING  REPLACEMENT'/aX,' ALN' ,T10,' INSERT  <  A  >  F  T  E  R  <L>Ht  N • , 
T40.  *RSiPi<Ji*  ,T48,  *<R>EPLACE  <S>TRING*  ,/3X,  »KLN*  ,TLU, 
•<R>EPLACfc  <L>  INE  N  .OR  .  *  ,  T  40 ,  *  «  S  NSP  $0$  •  ,  T50 ,  •  '*  P"  WITH  •*<)"  V 
3X, • RLN , M* ,TI5,*LINES  N  THRU  M* ,  T40, • RSN.MSPS )S ' »  T52, 

' INU IC A T  EO  LINES. */*  OUTPUT  COMMANDS  * ,T  38 ♦  '  ST P l NO  SEAMCH*/ 
3X,»L* , riU, *01  SPLAY  CURRENT  <L> I NE* , T40, *  >S >P 3 • , T4R, 

' <D> l SPLAY  LINES  */3X,'LN* , TIO, • OR  LINE  N.'.TSD, 

•WITH  <S>T  RING  "P",  •  /  JX  ,  *LN  »M  *  ,  T  1 0.  *  L  INt  S  N  HRJ  M'.T.O, 
•D$N.M*P$* f T4R,*UR  SHOW  ANY  LINES') 

[mat  jr  ■* 


■»  ’uinan.r,*  me)'  i 

201  format  ( 3X, *sl ,tio, *<s>how  a 

X  • "SCREEN"  OF  L INE S' , T50 ,» N-M  CONTAIN  I NG  HP" * / 3X  » • SN* , T l  ) , 


Fite:  sled  FORT  RAM  T 1 


NAVAL  POST '.RAJUAK:  SCHf-OU 


i  fumu  »  cr^FfcN  FROM  LINE  N*  ,T38 ,  *  CUNT ROL  COMMANDS1/ 
jSVVS-t.l  <SJenj  I  THIS.  ,ty, 


i  »<U>P6N  A  FILE 

>  T 52  » 'CREATE  A 

>  5  X  »  *  T  0  <Q>U I T 

>  'ATUR') 

WRITE  ( OUT  t  2-JO  I 
WRITE  (OUT, 201) 
RETURN 

END 

SUBROUTINE  VERS 


JR'/3X, 
FILE  FOR 


V*  jf  lOj*  SHOW  <V>ERSI  JN  IMF  JR1A  T!  UN  •  , 

ED  IT  INj' /  T40» '  CT  <LPHANoL  HE  L1*  I  C  Al  ' 
y  y  pp  "vJ<R  ET>'*  *  «  ThO  *  •  (E  SS  AGE  <T>iRN|N,t 


PART 


PACKAGE 


COMMON  /8LK 1 /  IN* OUT 
INTEGER  IN, OUT 


8MSSSSI  83S21H,  «./«•» 

4  *  EDI  TOR  LOGICAL  MESSAGE  ^R^RJORS  ARE.  / 

6  •  ANO<CAN<b|TCHANGEO  T3°ANY  STANDARD  FORTRAN  CHARACTER.*/ 

I  :  IgK»iNGr06vfiklS8sT?«iS  !Ee8  -EPE  WUIMD.'  . 

“irR;‘?l!  8OTW0  HtfK 

?»•/  •  12)  UNU  ONE  PILE  PER  SESSION  CAN  8E  OPENED.'/ 

!  '*  U!  THE13?ER,:lseI|iiio,fo4IWlki?iSiiErHEK  HE  IS  EDITING  A  '/ 

4  •  NEW  FILE  IN  ORDER  TO  PREVENT  A  DISK  READ  ERROR  IN  FORT** A 

hr  <’<  38». i^r«E,i.8lI8**!T4.ii86!S*>»Sa8*Stri,K*«*  *■ 

7/  .  THF  RIGHT.  THIS  AFFECTS  THE  RS  FUNCTION  ONLY.') 

222  FORMAT  j 
1  •  (61 


WRITE  l OUT, 220) 
WRITE  (OUT, 2211 
WRITE  (OUT, 222) 
RE  TURN 
END 

SUBROUTINE  OPEN 


EACH  LINE*/ 
OF  .JLAMKSM 


OPENS 
READS 
ini  r  i 


file  ano  workspac 
file  into  WORKSPA 
ETC. 


TEXT  FILE  ANO  I 
TEXT  FILE  INTO 
ALUES  POINTERS 


FILE, 

E  IF  IT 


ALREADY  EXISTS 


CCMMCN  /8LKI/ 
/BLK2/ 


IN.OUT 

LPTR.MAXL IN, EOF 
TFILE  _  . 


/ Slk5/  ?||(Ste»f3S£l$CURLIN 

lNTEG6R/tN^0UT,TF  Il|,UNE,6PRCT,CURL  IN,  STORE  ,MA  XL  IN,  EOF  , 
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I  It£:  SLED 


FORTRAN 


naval  pasruRAOUA tf  scor*  i 


100  ) 
2u  40 
2040 
2400 
2410 
2420 


STkPTR, l  ,NC 

l NT  tGEK  *2  IP  T  ». »  j  T  ACK  * FNAME  .  I NL I  N  ,  YE  S  ,  NO  ,RCP  LY  ,  rtU  NC 
LOGICAL  MPLAG 

0  [M£  N  SUN  LP  Tk  (40  00  >  .  BL  I  ME  (  *0 ) ,  S  T  ACK  (  4000  )  ,  F  NAM  E I  40) , I NL IN  I  »0 ) 
CAT  A  YtS/’r'/.HLlNE/aO**  •  /  t  NT/  ’  N  •  /  ,  STORE  / 1  / 

FCfMAI  (M0A1) 


FUR  44 T 
FORMAT 
FORMA T 
FCH  1 A  r 
FORMAT 


-',14,'  LINES  IN  FILE:  ‘,4041) 

-CR  EAT  ING  FILES  N40AII 
F I LfcN\ME?>* ) 

IS  THIS  A  NEW  FIL6?>* ) 

-MAX  CAPACITY  4000  LINES  EXCEEDED- * ) 


INITIALIZE 
MAXlIN  =  *000 
curl  in  =  i 

RF AO  IN  FILENAME  ICOSMETIC) 

IF  (.NUT.  MFLAGI  WRITE  (0UT,2400) 

CALL  OFT L i NI FNAME  , NC) 

ASK  WHETHER  IT  IS  A  NEW  FILE  (TO  PREVENT  FjkTAA 
WRITE  ( i  Hit « 24 10) 

HEAD  UN,  1000)  INLIN 
REPLY  a  INLIN(I) 

IF  (  (REPLY. NE. YES). AND.  (REPLY  .NE.NOM  GO  TQ  b 
IF  (REPl Y.Ej.YES)  THEN  00 

WRITE  ( JUT ,2050)  FNAME 
EOF  =  l 
STkPTR  a  1 

ACTIVATE  FILE  WITH  AN  ACCESS 
LPT«{  l)  *  1 

CALL  MEMORY ( STORE, BLlNE»LPTRtl)  ) 

ELSE  DU 

NUw  RLAu  IN  TEXT  F ILE 
LINE  a  0 

WHILE  (.TRUE.)  DO 

REaO  (TFlLEt lOOO.ENOalO)  INLIN 
LPTRILI NE*1 1  «  LINE  1 
CALL  MEMORY! S TORE, INL I N.LPTRI LINE*!)  ) 
LINE  «  LINE  ♦  1 

end  while 

CONTINUE 

IF  (LINE. GE. MAXLIN)  THEN  00 
WRITE  I  OUT ,24201 
STOP 
END  IF 

STKPTR  a  LINE  ♦  I 
EOF  »  STKPTR 
TELL  USER  FILE  OPEN 
WRITE  IOUT,2040)  LINE, FNAME 
END  IF 

00  20  l  *  l .MAXLIN 
STACKII)  »  l 

CONTINUE 
RE  TURN 
END 

SUBROUTINE  UUIT 


FORTRAN  READ  ERROR) 


17 


nnof'Onn  r>  ooooo 


FILE: 


2000 

2450 


90 


1000 

i 

c 

C 

C 

5 


9  i 


SLF.O  FORTRAN  T1 


NAVAL  P  J  STuR  AOUA  T  F  SCIfuLM 


PART  OF  THE  SLEO  PACKAGE 

CLOSES  OUT  THE  WORK  FILE  AND  WRITES  T HF  NFw  OR  UPDATED 
TEXT  FILE 

COMMON  /BLK2/  LPfR.MAXLIN.ElJF 
/8LKJ/  TFILE 
/3LKI/  IN  »  OUT 

INTEGER  MAXLIN,IN,0UT,ECF,TFILE,L.U  MIT 
INTEGERS  LINE  »LPTR 
DIMENSION  LPTK(4000) ,LINE(8D) 

FORMAT  (30A1) 

FORMAT  I*  -*,I4,*  LINES  WRITTEN-*) 

REWINO  TFILE 
LIMIT  *  EOF  -  I 
DC  90  L  »  I.LIMIT 

CALL  MEMURY(FETCH.LINE»LPTR(U) 

WRITE  (TFILE, 2000)  LINE 
CONTINUE 

WRITE  (OUT, 2450)  LIMIT 
RETURN 
END 


SUBROUT  I  ME  MEMORY (ACTION, L INE, PTR2 ) 

PART  OF  SLED  PACKAGE 

HANDLES  all  memory  REFERENCES  USING  OIRECT-ACCESS  DISK  file 


CYLINDERS  OF  DISK  SPACE  FOR 


CURRENT  CAPACITY  IS  4000  LINES 

REUUIRfcS  AT  LEAST  3  OEOICATEO  _ 

WORK  FILE  UNDER  CP/CMS  UN  AN  IBM  360/67 

COMMON  / BLK3/  TFILE 

1  NTIjGER  WF I LE  #  TF1LE,ACT  ION,  STORE  , PTR  ,  AVAR,  E  RRS 
INTcGiR*2  LINc*PTR2 
0 IM6NSI0N  LINE (BO ) 

OATA  STORE/1/ 

FORMAT  ( SOAL ) 


DEFINE  WORK  FILE 

KM.*  fIlE  13(4000, 80, E, AVAR) 

CONVERT  PTR2  FROM  INTE jER*2  TO  INTEGER 
PTR  *  PTR2 

INITTALUE  RE  AO  ERROR  COUNTER  AND  BEGIN 
ERRS  •  0 

IF  (ACTION  .EG,  STORE)  THEN  DO 

WHITE  (WFILE*PTR,1000)  LINE 
ELSE  00 

FETCH 

READ  ( WF I LE* PTR, 10 00  »ERR*99)  LINE 
ENO  IE 
RE  TURN 

ERRS  »  ERRS  1 

IF  (ERRS  .LT.  ID)  GO  TO  5 

STOP 
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non 


FILE: 


jiURAN 


•'4 AVAL  STGR  AOU AT  t  SCM5UL 


END 

subroutine 


i;«put 


I PPL  cMeNT  S 


INPUT  MODE 


STUPE,  I, J, IN,  JUT  ,NC 


COMMON  /BLKl/  lN»OUT 

L  /ULK2/  LPTR,MAXL IN, EOF 

2  / 3 L K 5 /  MFLAiJ  ,ERRCT,CURLl  N 

IN  T  L- G  if  R*2  PO. LPTK .BLNK.OUTL IN  „  , 

I NTfc jER  ^AXlIn,EOF,ERRCT, CURL  IN, STORE, I , J , IN,  JUT ,NC 
LOGICAL  MFLAU 

U IMS, Mb l  IN  LPT R( 4000) ,0UTLIN(30> 

DATA  PO/'.'/.STURE/l/.BLNK/'  •/ 

2110  FOR NAT  (•!>•) 

IP  NO  INPUT  IN  QUEUE,  PROMPT  JS6R 
IF  (.WOT.MFLAG)  WRITE  (OUT, 2110) 

CALL  GETLIN(0UTLIN,NC) 

WHILF  {.NiJT.I  (QUTLIN(l)  .  EQ.  PO)  .  A  NO.  C  OUTL  I  •  I  (  2  )  .  E  •).  U  IK )  )  )  DO 
IF  INC  .GT.  01  THEN  00 

UNLESS  IT  WAS  A  NULL  LINE 
HARE  ROOM  FOR  NEW  input 
IF  (CURLIN.LT. EOF)  THEN  OD 
J  *  EOF  -  CURLIN 


00  10  1  *  l,J 

LPTRIEOF  ♦  1  -  t)  «  LPTR(EOF 
CONTINUE 
ELSE  00 

CJRLIN  *  EOF 

KEEPS  INPUT  TEXT  CONTIGUOUS 
ENO  IF 

EOF  *  EOF  ♦  1 

GET  A  NUMBER  FOR  NEW  LINE  FROM  STACK 
CALL  POP ILPTRICURL  IN ) )  - 

NOW  STORE  THE  NEW  LINE,  „ 

CALL  MEMORY  I  STORE,  OUTUN,LPTR(CURLIN)  ) 
CURLIN  »  CURLIN  ♦  1 
FNO  IF 

IF  NOTHING  IN  QUEUE,  PROMPT  USER 
IF  I.NOT.MFLAG)  WRITE  (0UTr2110) 

CALL  GETLINTaUTLlN.NC) 

ENO  WHILE 
RE  TURN 
e.NO 


ELSE 


SUBROUTINE  GETLIN(OUTLIN,NC) 

uET'i  A  LINE  FROM  TERMINAL}  QUEUES  UP  MULTIPLE  LINES 

COMMON  /8LK1/  IN, OUT 

/SLK4/  TCHAR 

!  /3LK5/  MFLAGfERRCT, CJRLIN 

INTEGERS  INL IN, OUTL IN, QUEUE, BLNK, TCHAR 

INTEGER  IN.OUT, ERRCT, CJRLIN, I  ,J,K,LINELN,  »4,F.NJ  J,NC,NCHA*S 
LOGICAL  MFLAG.NFLAG 


FILE:  SLED 


FORTRAN 


NAVA«_  PD  STiiAADUATE  SCHOOL 


1010 

20u(J 

2070 


DIMENSION  INLINI80I ,QUTLIN<RO) ,0UFUE< 30 » l  >>  ,NCHA*>(1  )) 

DATA  8CNK/'  *  /  »L  lNELN/80/  «  ENOO/O/ 

FOR  HAT  (AJA1) 

FORMAT  (•  -TRUNCATED;  ONLY  10  ITEMS  PER  LlNF-'l 
FORMAT  (•  -ILLEGAL  CHARACTER  OP  BLANK  CUM  1A NO- ’  ) 

MFLAG  GOES  TRUE  WHEN  MULTIPLE  INPUT  LINES  ARE  STACKED 
IF  (.NUT. MFLAG)  THEN  DO 

READ  ( IN  «  UlO  »£RR*  99  ,F  ND*98  )  INLIN 
l  =  l 

WHILE  (I  !. LE.LINELN). AND. UNLtN(I)..Ne.TCHAR))  DO 
OUTLIN(I)  *  INLIN(I) 

1*1  +  1 
ENO  while 

NC  *  I  -  l 

IF  (  INLIN  ID  .EQ.TCHAft)  MFLAG  *  .TRUE. 

IF  ( I .LE.LINELN)  THEN  00 
00  20  K  »  I.LINELN 

OUTLIN(K)  *  3LNK 
CONTINUE 
ENU  IF 

WHILE  < INLIN(IJ.EQ.TCHAR)  DO 
IF  ( tNOQ.GE *10)  THEN  DO 
WRITE  (OUT, 2060) 

INUNd)  *  8LNK 
ELSE  DO 

ENDQ  »  ENOQ  +  1 
I  »  I  +  1 
J  *  1 

NFLAG  *  .TRUE. 

WHILE  ((  I. LE.LINELN)  .AND. (  INLIN  ( I)  .NE.  TCHAR  N  On 
QUEUE! J.ENDQ)  *  INLIN! I) 

IF  UNLtNUl.NE.dLNK)  NFLAG  *  .FALSE. 

I  «  I  +  I 
J  *  J  ♦  l 
*  ENO  WHILE 

NCHARS (ENOQ)  *  J  -  l 

IF (II.GT.LINELN) .AND. NFLAG)  NCHAKS CENDQ>=0 
IF  (J. LE.LINELN)  THEN  00 
00  30  K  *  J , L INELN 

QUEUE( K , ENOQ )  *  BLNK 
CONTINUE 
ENO  IF 
ENO  IF 
ENO  WHILE 
ELSE  OU 

GET  LINE  FROM  QUEUE  INSTEAD 
BQ  *  BQ  +  l 
NC  *  NCHARS(BQ) 

00  4Q  I  *  I.LINELN 

OUTLINJ I )  *  QUEUE ( I ,)Q ) 

CONTINUE 

IF  ( 6U.E0.ENDQ)  THEN  00 
BQ  *  0 
ENDQ  «  0 
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f  j  ,rt  THAN  Tl 


*J  V/  A  L  P'’STGK  ADJATE  SCHfir  I 


MFLAG  «  .FALSF. 

END  IF 
END  IF 
RETURN 

9 «  CONTINUE 

REWIND  IN 
9  9  CONTINUE 

WRITE  (C/i/T,?o;0) 

OUTL  f  M{ 1 )  *  3LNK 
RE  TURN 
fcNO 


SU  3R.CUT  I  Nfc  P')SH(X) 

PUSHES  A  POINTER  TO  A  FREE  LINE  ONTO  THE  STACK 

C  CM 'ION  /ntKl/  IN. OUT 

I  /dLKS/  STACK,  STKPTR 

INTEGER  STKPTR, IN, OUT 
INTEGEK*2  STACK. X 
J I M£NS I ON  STACK! 4000 ) 

2080  FORMAT  (•  -FREE  LINE  LIST  STACK  OVERFLOW-' > 

C 

IF  (STKPTR. GT.l)  THEN  00 
STKPTR  -  STKPTR  -  1 
STACKCSTKPTRI  »  X 
ELSE  00 

C  STACK  OVERFLOW 

WRITE  (OUT. 20801 
END  IF 
RETURN 
ENO 


E 


SUBROUTINE  POP! XI 

POPS  A  POINTER  TO  A  FREE  LINE  FROM  THE  STACK 

COMMON  /BLK  1/  IN. OUT 

1  /3LK2/  LPTR.MAXLIN.EOF 

2  /8LK6/  STACK, STKPTR 

INTEGER  STKP  TR .MAXLIN .EOF , I  N.OJT 
INTEGERS  STACK, LPTR.X 
DIMENSION  STACK! 40001 ,LPTR( 40001 

2090  FORMAT  I*  -ALL  SYSTEM  BUFFERS  FULL-*) 


X 

IF 


ELSE 

ENO 

RETURN 

END 


TACK!  STKPTR) 

STKPTR  .LT.  MAXLIN) 
STKPTR  »  STKPTR  ♦ 
00 

WRITE  (OUT, 2090) 

IF 


THEN  00 


I 


-J- 
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FILE:  SLED 


F UK  IRAN  T 1 


NAVAL  P'jSTGK  AOUATr  S  C  .  *'  n! 


SUBRHU r INF  CNVRTI STRING. I .  J.N) 

CONVERTS  CHARACTERS  I  THROUGH  J  OF  STRING  INTO  AN  INTEGER  N 

INTEGER  *2  STRING, OIGIT 

INTEGER  l.J.N.K.L 

OIMENSI  J.N  STH  INGOOI  .01  Gl  T<  10) 

DATA  CIGIT/'O*  .*  1»,'2*  .  *3*  t  '4*  ,  •  5*,'  6* ,  *  7*  ,  *8*  ,  •<>•/ 

N  =  J 

00  20  K  *  I. J 
L  =  i 

WHILE  (STRING(K) .NE.OIGITIL J )  00 
L  *  L  ♦  1 
E.NO  WHILE 

IF  (L  .LE.  10!  THEN  00 

N  *  N  ♦  (L-ll  *(  10**<  J-K  )  ) 

ELSE  00 

N  *  -99999999 
RETURN 
E.NO  I F 

20  CONTINUE 
RE  TURN 
END 


SUBROUTINE  CDML INICl, CLINE, Nl.N2.EFL AG > 

FINOS  AND  INTERPRETS  THE  LINE  NUMBERS  CONTAINED  ON  A 
COMMAND  LINE.  CHECKS  FOR  ERRORS. 

INTEGER  C l ,NI ,N2 , I , J 
INT EGER*2  CL INE, BLNK.COMMA 
LOGICAL  EFLAG 
DIMENSION  CLI NEI 80! 

OATA  BLNK/ •  •/ .COMMA/* , »/ 

EFLAG  *  .FALSE. 

FINU  FIRST  DIGIT 
l  -  CL 
J  »  I 

WHILE  ( (CLINE (J) .N6.8LNK) .AND. ICLINEI J).NE. COMMA) )  00 
J  *  J  ♦  1 
END  WHILE 

IF  (J.GE.RO)  THEN  DO 
EFLAG  *  .TRUE. 

ELSE  00 

CONVERT  FIRST  NUMBER  TO  AN  INTEGER 
CALL  CNVRT (CLINE, I»J-l,Nl! 

LOOK  FOR  SECOND  NUMBER 
I  *  J  *  L 

WHIL^  (CL INE( J) .NE.8LNK)  00 
J  *  J  ♦  I 
END  WHILE 

IF  (J  .GE.  80)  THEN  00 
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r  I  Lr :  SL  to 


(-'OR  TP  AN 


NAVAL  jO  S  T  OR  AUU  ATE  SC  HI',’!  I 


EFLAG  *  .TRUE. 

ELSE  i)J 

IF  (I  .EQ.  J)  THFS  03 

MO  SECOND  NO  RTF-*  EXISTS 
N2  =  N 1 
ELSE  DO 

CONVERT  SECJND  NJMBE3 
CALL  CNVRT  I  CL INE  .  I  ,  J-l ,N2 J 
END  IF 

IF  (Nl  .GT.  N2)  FFLAG  =  .TRUF. 

END  IF 
ENO  I  F 
RE  TURN 
ENO 

SURRCUri  Me  SEARCH! LINE.  STRING,  NC, MATCH,  MCI  ) 

P AF  r  OF  SLED  PACKAGE 

SEARCHES  'Li  lt*  FOR  THE  FIRST  OCCURRENCE  JF  'STRING*. 

'MATCH'  IS  SeT  TO  '.TRUE.'  IF  A  MATCH  IS  FOUND . 

•NO  IS  THE  NUMBER  OF  CHARACTERS  IN  *  STRING*  (REQUIRED  INPUT) 
•Mf.l'  IS  AN  OUTPUT  INDICATING  FIRST  COL  (JF  MATCH 

INTEGER  I .J.L.NC.MCl 
INTEGER*2  LINE, STRING 
LOGICAL  MATCH 

DIHENSIUN  LINEI30) .STRING180) 

J  *  l 

MATCH  =  .FALSE. 

WHILE  (  (  .N(1T. MATCH)  .ANO.  I  J.LE.Bl-NC)  )  DO 

WHILE  USTRINGUI. NE. LINE!  Jl). AND. (J.LE.  U-NO)  00 
J  *  J  ♦  l 
END  WHILE 

IF  (J.LE.8I-NCJ  THEN  OJ 
I  *  I 
L  *  J 

WHILE  II  STRlNGII+l)  .EO.L  INEl  L  «►  L  >  >  .  AND. 

I  (<L»l).LT.80).AND.U*l.LE.Nc))  00 

L  »  L  ♦  1 
I  »  I  l 
END  WHILE 

IF  II  .EQ.  NC)  THEN  00 
MATCH  *  .TRUE. 

ELSE  DO 

J  *  J  ♦  1 
END  IF 
END  IF 
END  WHILE 
MCI  *  J 
RETURN 
END 
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on  non  o  nnoonrir.oponr>in 


10/02/ 30  12.22.02 

FILE:  SLED2  F uW TRAM  Tl  NAVAL  pOST-.f . -W'JArc  SCM''»U 

Sf  ANOARD  LINE  60  l  TOR —FORT  RAN  URL  F  MENT  A  T  l  11 

SLcO  VJRS UN  FOATL.l  NPS  NON  TC  °E  Y  R  J  0  A  _)  1 
PROGRAMMED  3Y:  C.  F  *  TAYLOR*  JR.,  COUP  55  r  \ 

FOR  FURTHER  INFORMATION  SEE  N» S  TECHNICAL  kERORT 
NPS  52-3  )-  )0l  F)Y  L.  A.  COX,  JR. 


MAIN  PROGRAM: 


RE  AOS  IN  C0V-1ANJS  ANC  CALLS 
IMPLEMENTS  THE  "tOIT"  MOO 6 


THF  APPROPRIATE  SJ-WJUNc 


COMMON  /HLK l / 1 N  * OUT  /BLK5/MF LAG, ERPCT, CURL  IN 
IN  TEofcR*  2  CI.C2, A,C,0,L,M.O,U,R, S, T  , V , I Nl I Nfc , *LNK 
INTEGER  (N,(J  JT.6RRCT  ,CURLl  N,NC 
DIMENSION  INLINE  I  30) 

LOGICAL  FLAG, OPENFL, MFLAG 

OATA  A/,A,/»C/'C*/,0/,0,/»L/*L'/,M/,M*/,0/,l),/,U/,0,/,',/,R,/i 
♦'/.T/'T'/.V/'V'/ ,3LNK/*  •/ 

2000  FORMAT  (*  6>») 

2010  FORMAT  ('  -INVALID  COMMAND-  •  ,2A1 ) 

2020  FORMAT  <•  -NO  TEXT  FILE  OPEN-*) 

2030  FORMAT  {•  -ONLY  ONE  FILE  CAN  BE  OPENED  PER  SESSION  tN  THIS  • 
♦SION  OF  SL1J-M 
EDIT  MODE— WHITE  PROMPT 
WRITE  (OUT, 2000) 

CALL  GETLlNl INLINE.NC) 

Cl  *  INLINt(l) 

C2  *  INLINE (2) 

FLAG  GOES  FALSE  AFTER  'QUIT* 

FLAG  »  .TRUE. 

OPENFL  GOti  TRUE  AFTER  FILE  IS  OPENED 
OPENFL  *  .FALSE. 

MAIN  EDIT  LOUP 

9000  IF  (.NUT.  (FLAG)  )  GO  TO  9001 
IF  I  .NUT. ( .NOT. (OPENFL  .OR. 

•O.V) ) )  )  GO  TO  9002 

FILE  NOT  OPEN  ANO  THIS  IS  NOT  AN 
OR  A  'MENU*  OR  ‘VERSION'  REDDEST 
WRITE  (OUT, 20201 
TQ  9003 

9002  CONTINUE 

:  EMULATE  CASE  (SWITCH)  STATEMENT  TO  PROCESS  COMMANDS 

IF  (Cl  . EO •  9LNK )  GO  TO  200 
IF  (Cl.NE.L)  GO  TO  10 
CALL  L 1 $T( INLINE) 
on  TO  200 
10  continue 

IF  (Cl.NE.S)  GO  TO  20 
CALL  SCREEN( INLINE I 
G«J  TO  200 
20  CONTINUE 

IF  ( (Cl.NE.R).0R.(C2.NE.S) I  10  TO  30 


S/ 


•VFR 


ICl.EQ.01  .OR.  (Cl.FQ.M)  .OR.  (Cl.F 
'OPEN*  COMMAND 
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FILE:  SLE02 


FORTRAN  fl 


t  A  VAu  POSTGRADUATE  S 


30 


40 


50 

60 


70 

ao 

90 


9004 


9005 

100 


no 

c 

c 


c 

200 


900b 

9003 

C 


CALL  RSUNLINF) 

GO  TO  200 

fP'VlCUNE.H  ).0R. ( C2.NE. L)  >  GO 
CALL  R  L I INLINE) 

;u  TO  200 

fiFNI(CUNE.A).0R.(C2.NE.L))  GO 
CALL  AL I INLINE) 

GO  TO  200 

IFN( {ci^NE.0,.0R.(C2.NE.S) ) 
CALL  0S( INLINE ) 

GO  TO  200 

CONTINUE  _ _ 

IF  (CI.NE.O)  GO  TO  70 
CALL  QUIT 
FLAG  *  .FALSC. 

GO  TO  200 


GO 


CONTINUE 
IF  (Cl.NE.V) 
CALL  VERS 
GO  TO  200 
CONTINUE 
IF  (Cl.NE.M) 
CALL  MENU 
GO  TO  200 
CGNTINUE 
IF  (Ci.NE.O) 
IF 


GO  TO  80 


GO  TO  90 


GO  TO 


100 

UNOT.CClPENFL)  )  GO  TO  9004 
WPITE  (OUT, 2030) 

GU  TO  9005 

CONTINUE  - » 

CALL  OPEN 
UP E NFL  *  .TRUE. 

CONTINUE 
GO  TO  200 

?FN((Ci!nE.C).0R.(C2.NE.T)>  GO 
CALL  CTI INLINE) 

GU  TO  200 
CONTINUE 

IF  PROGRAM  GETS  HERE,  COMMAND 
WRITE  (OUT, 2010)  Cl,C2 
ERRCT  *  ERRCT  ♦  l 
END  CASE 

IFN| InoT.IERRCT.GE.2)  I  GO  TO 
CALL  MENU 
ERRCT  »  0 
CONTINUE 

IFN( InUT .(FLAG!  I  GU  TO  9008 
GET  NEXT  LINE 


TO  40 

TO.  50 

TO  60 


to  no 

IS  INVALID 

9006 
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FILE:  SLE02 


r  ;•<  fRA' 


NAVAL  ‘»OST  JR  A  JUATF  SCO'  KJ  | 


IF  (.'41 
call  jF 
V.  L  3  IN 
C2  *  IN 

9008  CCNTINUE 

gc  ru  4uj  ) 

900 L  CONTIMJE 
STOP 
END 


‘4  IT  .  M  rL AG )  WRITE  (HUT, 2000) 
^FIL  l  .( INLINE. MCI 
lM.  I  NC  (  l  ) 

INLINE (2  ) 


.block  jata 

COMMON  /dLKl/  IN, JUT  /BLK  3/  TFILE  /BLX4/  TCHAR  /.<L<‘3/  '1m  A  G ,  f  t'P C  T 
*,CUHl IN 
INI  EOF  -t*  2  r  CHAR 

IN  TE  it.  <  IN  « JUT  ,  T  F  ILfc  «EP.RCT  , CUP  LI  N 
logical  mflag 

DATA  IN/ 5/  ,J*JT/6/  ,TCHAR/»  t  •  /  ,ERRCT/0/t  IFI.A^/  .F  AL  >E  •  /  * C  Is  l  I  '4  /  I  /  ,  Tr 
♦ILF/2/ 

END 


2100 

2110 


SUBROUTINE  LIST ( CLINE) 

01  SPLAYS  Tfxr  TU  THE  TERMINAL 

COMMON  /8LKL/  IN, OUT  /BLK2/  LPTR , MAYL IN , E JF  / ML  X5 /  MFL  4  G  ,  r  R  I- C  T  , 
♦  CURL  IN 

IN r EGER *2  d  LNK , L  PTR  , COMMA  , OUTL  IN, CL  I NE 

INTEGER  IN  ,.JUT  ,  l  ,  J,Nl,N2»  MAXLIN,  EOF,  ERKCT.CJKL  IN,  FETCH 

LOGICAL  MFLAG.fcFLAG 

DIMENSION  CLINE!  80)  .0UTLINI80)  ,LPTR(40r>0) 

OATA  BLNK/ *  • /.CUMMA/* ,•/, FETCH/O/ 

FORMAT  («  -INVALID  COMMAND-*) 

FORMAT  (•  • , 14, IX.30AI ) 

FORMAT  (•  -EOF-') 


2120  FORMAT  ( •  -EOF-' ) 

:  IF  COL  2  IS  9LANK,  PRINT  CURLIN  AND  EXIT 

IF  ( .NOT. (CLINE! 2)  .EQ.  BLNK)  )  GO  TO  9010 
CALL  MEMORY  (FETCH, OUTL IN, LPTR(CURLIN) > 
WRITE  (OUT, 2110)  CURLIN,  OUTLIN 
GC  ru  9011 
9010  CCNr  IN  JE 

:  no*  check  for  line  numbers  in  command 

v-  AL  L  lJMLIiN!  2,CLINE,NI,N2,EFLAG) 

IF  (NI  . Lh .  0)  N 1  =  l 

IF  (Nl  .GT.  N2)  tFLAG  -  .TRUE. 

IF  (Nl  .Gt.  CtF)  EFLAG  s  .TRUE. 

IF  (  .NO f .  (  F.F  L  AG)  )  GO  TO  9012 
ERRCT  =  ERF  C  T  ♦  l 
wRIU  (OUT, 2100) 

UJ  Tu  '013 
9012  CONTINUE 

ERRCI  ^  0 
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FILE:  SLED2 


fORTRAN  I  1 


N  A  /  A  L  PO  ST  JR  AOUAfE  S0O»:nL 


0014 


I 

IF 


CURL  IN 
I  *  I  *■  1 
go  rn  9014 
9015  CONTINUE 

if  (I.GE.EOF) 
9013  CONTINUE 
901 l  CONT INJE 
RE  TURN 
ENU 


•  Ml 

(.NUT.  (i I .LE.N2) .ANU.( l.LT.EOF))  J 
CALL  MEMORY  (FETCH, QUTL  I  N,  LPT  M  III 
wkITF:  (  uUT  ,2110)  I,  (JJTLIN 


WRITE  (OUT  ,2120 ) 


,n  rn  oo i 5 


SUBROUTINE  SCREEN(CL INE) 

01  SPLAYS  20  LIMES  BEGINNING  WITH  CURLIN  OR  OTHER  SPECIFIED  L  I N  f 

COMMON  /3LK l /  IN, OUT  /3LK2/  LPTR  ,  MAXL  IN  ,6  JF  /3L<5/  MFLAC,,  FRPCT, 

•CURL  IN 

INTEGER  IN »OUT , MAXL I N ,EOF , ERRCT, CJRL IN, I ,N l ,M2 ,L I M I T ,  FETCH,  N 
IN TEGER*2  CLINE, LPTR, UUTLIN,8LMK 
LOGICAL  MFLAG, EFLAG 

□  I  MENS I  ON  CL I NE ( 80) ,0UTLIN(30) ,LPTR(4000 ) 

OATA  OLNK/'  '/, FETCH/O/ 

2100  FORMAT  (•  -INVALID  CUMMANO-M 
2110  FORMAT  (•  • , 14, IX,*0A1 ) 

.2120  FORMAT  ( •  -EOF-* ) 

EFLAG  »  .FALSE. 

1  FINO  OUT  WHETHER  USER  specified  A  line 

IF  (  .NUT  .  (  CL  I  NE  (  2  )  .  NE.BLNX  I  I  GO.TO  901S 
CALL  CQML1 Nl 2 , CL  I NE ,N1 , N2 » EFLAG I 
IF  (Nl  .LE.  0)  Nl  *  1 
IF  (Nl  .GE.  EOF)  EFLAG  »  .TRUE. 

IF  (.NOT.  EFLAG)  CURLIN  *  Nl 
9016  CONTINUE 

IF  (  .NOT. (EFLAG)  »  GO  TO  9018 
ERRCT  a  ERRCT  ♦  l 
WRITE  (OUT , 21001 
GO  TO  90 l R 

9018  CONTINUE 

ERRCT  a  0 

LIMIT  a  MIN0(CURLIN*19,E0F-1) 

DO  10  I  »  CURLIN, LIMIT 

CALL  memoryifetch.outlin.lptrc I)) 

WRITE  (OUT, 21 10)  IfOUTLIN 
10  CONTINUE 

CURLIN  «  LIMIT 

IF  (LIMIT  .EQ.  EOF-l)  WRITE  (OUT, 2120) 

9019  CONTINUE 
RETURN 
END 
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rll?.:  SL  t.)  2 


FOR  TRAN  TL 


n*/AI  P •  1  S T • , H  AOUATF  SCMi  Ml 


SUBROUTINE  RLI  CLINE) 

REPLACES  CURRENT  LINE  OR  THE  SPECIFIED  LINE  OR  LINES  HITO 
ANY  NUMBER  OF  lines 

COMMON  /  BLK1  /  IN, OUT  /  BLN2  /  LPTR  ,  MAXL  IN  ,t  IF  /  3  L  *  S  /  MFl.  AO  ,  F  R  »C  T , 

*INT£GER  IN  ,QUT ,  *  AXL  I N  tEOF  ,  ERRC  T,C  JRL  I  N,N  .Nl  ,  N2 , 1  ,  J  ,  L  I  U  T ,  STohp 
INTEGER*2  CLlNt, LPTR, 8LNK 
logical  mflau, eflag 

DIMENSION  LLlNEI 80) ,LPTR(4000) 

OATA  BLNK/ '  '/.STURE/l/ 

2100  FORMAT  (•  -INVALID  COMMAND-’) 

N 1  =  C JRL IN 
N2  =  N I 

:  DETERMINE  WHICH  lineisi  to  replace 

IF  I  .NOT. (CLINE! JI.NE.BLNKl  I  GO  TO  9020 
CALL  COMLINI 3, CLINE, Nl,N2,E FLAG) 

IF  INI  .LC.  0)  EFLAG  *  .TRUfc. 

IF  INI  .  GE  .  EfJF)  EFLAG  »  .TRUE. 

IF  {.NOT.  EFLAG)  CURLIN  »  Nl 
0020  CONTINUE 

IF  (  .NUT « I EFLAG)  )  GO  TO  3022 
ERRCT  »  ERRCT  «■  I 
WRITE  (GUT, 2100) 

GO  TO  902  3 

9022  CJNTINUE 

IFHI<N23,GE.  EOF)  N2  *  EOF  -  l 
C  REMOVE  DESIGNATED  LINES 

N  *  N2  -  Nl  *  1 
00  20  I  *  l.N 
LIMIT  *  EOF  -  2 
CALL  PUSH I LPTR IN I ) ) 

DO  10  J  *  Nl, LIMIT 
LPTRIJ)  *  LPTBIJ+l) 

10  CONTINUE 

EOF  -  EuF  -  l 

C  20  NOWT|nPJT  REPLACEMENT  LINES 

CALL  INPUT 

9023  CONTINUE 
RETURN 
END 


SUBROUTINE  AL I  CLINE) 

INPUT  TEXT  AFTER  LINE  N 

COMMON  /  .3  L  K  l  /  IN.UUT  /BLK5/  MFLAG  ,  ERRCT  ,CJRL  IN 
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FILE:  SUi),? 


FOR  TRAN 


NAVAL  PU  ST  ■ » <">  A  DU  AT  F  SCH'.hl 


INT£GFR*2  BLNK, CLlNE 

INIEGFK  IN. OUT, I  , J , N ,Nl , N2 ,E RRCT , C JR L I N 
LJf.ICAL  MFL AG,  EFLAG 
DIMENSION  CUNEIHOI 
CATA  BLNK / '  •/ 

2 10 J  FORMAT  ('  -INVALID  COMMAND—1  ) 

;  EX  TR  AC  T  LINE  NUMBER  FROM  COMMAND  LINE  • 

CALL  COMLINI ) fCL INE,N1,N2,  EFLAG) 

IF  INI  .LT.  0)  EFLAG  «  .TRUE. 

N  *  N  l 

IF  (  .NOT .(EFLAG)  1  GO  TO  9024 
ERPCT  *  ERRCT  «■  I 
WRITE  (i)jr,2ioOI 
GO  TO  9J25 

9024  CONTINUE 

ERR  CT  *  0 
CUPLIN  =  N  *  l 
CALL  INPUT 

9025  CONTINUE 
RE  TURPJ 
END 


2100 

2110 


SUBROUTINE  OSICLINE) 

PART  OF  SLED  PACKAGE 

DISPLAYS  ALL  LINES  CONTAINING  THE  DESIGNATED  STRING,  POSSIBLY 
LIMITED  TO  LINES  N  THROUGH  M. 

COMMON  /HLK 1/  IN, OUT  /BLK2/  LP TR , M A  XL  IN , EOF  /8LK5/  MFL AG, fc R» CT ,CUR 
•LIN 

INTEGER  IN ,OUT , MAXL INtEOF»£RRCf»CURL IN,Nl,N2,NC, FETCH, MCI 
INTFGFR*2  CLINE, LPTR, BLNK, STRING, LINE 
LOGICAL  MFLAG, EFLAG, MATCH, FOUND 

□  l  ME  NS  I  ON  CLINE  HOI  ,  LINE  HOI  ,LPTR(  4000  )  ,  STRI NG  HO  ) 

DATA  8LNK/ •  */,FETCH/0/ 

_  _  FORMAT  (•  -INVALID  COMMANO-* I 

2110  FORMAT  (•  * , 14, IX, ROAl) 

2220  FORMAT  I*  OLD  STRING?>*1 
2250  FORMAT  C  -NO  STRING  FOUNO-* I 


:  DEFAULT  VALUES 

f JUNO  *  .FALSE. 

EFLAG  »  .FALSE. 

N  l  =  l 

N2  *  EOF  -  l 

;  DETERMINE  WHETHER  Nl,N2  WERE  SPECIF 

IF  I  .NUr.ULlNEOI  .NE.  BLNK  I  I  GO 
CALL  COMLINU, CLINE, N1,N2, EFLAG) 
IF  ( N 1  .GE.  EOF)  EFLAG  *  .TRUE. 
IF  IN2  .GE.  EOF  I  N2  *  EOF  -  1 
IF  (Nl  .LE.  0)  Nl  *  l 
9026  CONTINUE 

IF  C  .NUT. (EFLAG)  I  GO  TO  9028 


WERE  SPECIFIED  BY  JSC8 
BLNK)  )  GO  TO  9026 
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FILE:  SLFD2 


FORTRAN 


NAVAL  POSTGRADUATE  SCMU.JI 


902  a 


9030 


ERRCT  *  ERRCT  +  1 
WRITE  (TUT, 2100) 

GO  T.J  90 20 
CONT  IN J£ 

ERRCT  *  0 

FETCH  FIRING;  ISSUE  PROMPT  IF  NECESSARY 
IF  (.NOT.  MFLAG)  WRITE  (OUT, 2220) 

CALL  GETLIN  (STRING. NO 
IF  l.N'JT.<NC  .LE .  0)  )  GO  TO  9030 
ERRLT  =  ERRCT  *■  1 
WRITE  ( OU  T .2100) 

GO  TO  9031 
CONTINUE 
)  )  20 


))  20  I  *  M1.N2 

CALL  MEMORY (FETCH. L INE, LPTR ( I )) 

CALL  S£ ARCH (L 1  ME, SIR ING.NC. MATCH, MCI ) 
IF  ( .MOT. (MATCH)  )  GO  TO  9032 
FOUND  =  .TRUE. 

WRIlt  (HUT, 2110)  I.LINF 


9032 

20 

9031 


C’JRL  IN 
CONTINUE 
CONTINUE 
IF  (.NOT. 
CONTINUE 


FOUND)  WRITE  (OUT,  2250) 


9029  CONTINUE 
RETURN 
END 

SUIlHOU  TINE 


RS(CLINE) 


PART  OF  SLEO  PACKAGE 

REPLACES  THE  FIRST  OCCURRENCE  OF -STRINGI  WITH  STR I NG2 
CURRENT  LINE  OR  WITHIN  THE  SPECIFIED  RANGE  OF  LIMES 


COMMON  / BLK 1/  IN.UUT  /BLK2/  LPTR  »MAXL  IN , EOF  /BLK5/  MFLAG, 

*  INTEGER  IN, OUT, MAXLIN,EOF, ERRCT, CJRL IN,NI,N2,I ,J,K,L,M,  N 
*NC2, FETCH, STORE 

INTEGERS  CLINE,  LPTR, 8LNK,  ST R1  ,STR2,UNF 

DIMENSION  LPTR(4U00I ,CL INE ( 80) ,STR l ( BO) , STR2 ( 30) , L I NE ( TO ) 
DATA  BLN*/'  • /,F E TCH/O/ , S TORE/ 1/ 

LOGICAL  MFLAG, FOUND, MATCH, EFLAG 


/BLK2/  LPTR, MAXLIN, EOF  /BLK5/  MFLAG,ERPCT  ,C'JR 


N  ,  MC  l ,  NC.  I , 


2130  FORMAT 
2110  FORMAT 
2230  FORMAT 
2  240  FORMAT 
2250  FORMAT 


t-  HU  fTU  U'lU  f  HM  I  («n  f  1.1  I.) 

-invalid  command—  * > 

•  » l 4  » 1 X , 30 A 1 ) 

UL'>  STRING?>') 

NEW  ST R  ING?> ' ) 

-NO  STRING  FOUND-' ) 


DEFAULT  CONDITIONS 
NL  *  CURLIN 
N2  3  Nl 

fcr  LAG  *  .FALSE. 

INTERPRET  C  JMMAND  LINE 
IF  (  .NOT .(CLINE! 3).NF.BLN< )  )  GO  TO 
C  ALL  C'JMLl  N(  3  ,CLI  NE,Nl  ,  N2  .EFLAG  > 
IF  INI  .Lt.  0)  EFLAG  »  .TRUE. 


9Q  J  4 
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EFLAG  »  .TRUE. 
N2  «  EOF  -  l 


)  GO 

ERRCT  +  l 
(GUT, 2 l DO I 
9U37 


IF  ( NI  .GE.  EOF) 

IF  IN2  .GF .  ELF) 

9034  CONTINUE 

IF  (  .NOT. (EFLAG)  )  GO  TO  9036 
ERPCT 
WRITE 
GO  TO 
9036  CONTINUE 

ERRCT  *  0 

;  READ  IN  TWO  STRINGS}  PROMPT  IF  NECESSARY 

IF  (.NUT.  MFLA3)  WRITE  (OUT, 22 30) 

CALL  GETL1N( STRL.MCLI 

IF  (NCI  .LE.  0)  EFLAG  *  .TRUE. 

IF  (.NOT.  MFLAG)  WRITE  (OUT, 2240) 

CALL  GETLIN(STR2,NC2I 
IF  ( .NOT. (EFLAG)  )  GO  TO  9033 
ERRCT  «  ERRCT  ♦  i 
•  WRITE  (OUT, 2100) 

RETURN 

9033  CONTINUE 

;  NOW  FIND  STRINGL 

FOUNO  *  .FALSE. 


10 

20 


30 

40 


45 

9042 


DO  50  K  »  NI.N2 
CALL  MEMORY! Ffc  TCH ,L 
CALL  SEARCH! LINE, ST 
IF  ( .NOT. (MATCH)  I 


INE.LPTR(K)) 
R1,NC1, MATCH, MCI) 
GO  TO  9040 


J  ,79 

LIN6(M»i) 


( .NOT. (MATCH)  I  __  _ 

NOW  MAKE  SUBSTITUTION 
J  *  MCI 

FOUND  »  -TRUE. 

DELETE  STRINGI 
DO  20  I  *  UNCI 
00  10  M  »  J , 79 
LINE(M)  « 

CONTINUE 
CONTINUE 
NOW  MAKE  ROOM  FOR  STRING2 
IF  ( .NOT* ( NC2  .GT.  0)  )  GO  TO  9042 
00  40  L  *  1.NC2 
M  ■  Bl  -  J 
00  30  I  «  2,H 
UNE(82-ll  *  LINE  <  8  i-  1 1 
CONTINUE 
CONTINUE 

NOW  INSERT  NEW  STRING 
00  45  I  *  1 , NC2 
LINfi(JM-l)  *  STR2U) 

CUNTlNUfc 

CONTINUE 

STORE  KEVISEO  LINE 

CALL  MEMORY ( S TORE# L INF, L PTR  IK)) 

01  SPLAY  REVISED  LINE 
WRITE  (OUT, 21101  K,L INE 

REMOVE  "C"  IN  CC  1  OF  ABOVE  LINE  TU  ENABLE 
DISPLAY  OF  EACH  LINE  IN  WHICH  A  STRING  HAS  BEEN 
REPLACED 


oonon  o  o  ooro 
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CURL  I  N  »  K 
9040  CCNTINUE 

50  CONTINUE 

IF  t.NJI.  rjUNO)  WRITE  (OUT, 22501 
0037  CONTINUE 
RETJRN 
END 

SUBROUTINE  CT 

PART  OF  SLEU  PACKAGE 

CmANGFS  THE  MESSAGE  TERMINATOR  TO  ANY  VALID  CHARACTER 

COMMON  /  BLK  1/  INT.OUT  /8L<4/  TCHAR  /BLK5/  MFLAG  ,  ERRC  T  »C  JRt.  I  N 

INTEoFR  IN* OUT , EKRCT , CUR LI N,NC 

IN  TECiCrt  *2  TCHAR,  INLIN»BLNK 

LOGICAL  MFLAG 

01  'TENSION  I NL  I N (  80) 

CAT  A  BLNK/ •  •/ 

2100  FORMAT  (•  -INVALID  COMMAND-*  ) 

2200  FORMAT  (•  TERMlNATOR?>* I 

IF  (.NOT. I. NOT.  MFLAG)  I  GO  TO  9044 
ISSUE  PROMPT 
WRITE  (OUT, 2200) 

9044  CONTINUE 

CALL  GETLIN(INLIN,NC) 

IF  ( .NOT.! ( NC.EO.O) .0R.( INI IN (L) . EQ . BLNK  )  )  )  GO  TO  9045 
ERPCT  »  ERRCT  ♦  I 
WRITE  (OJT.2IOO) 

GO  TO  9047 

9046  CONTINUE 

TCHAR  »  INLIN(I) 

9047  CONTINUE 
RETURN 
END 

SUBROUTINE  MENU 
PART  OF  SLEO  PACKAGE 

PROVIDES  USER  WITH  A  SUMMARY  OF  AVAILABLE  COMMANDS 
ANO  THEIR  FORMATS. 

COMMON  /QLK 1/  IN, OUT 
INTEGER  IN, OUT 

200  FORMAT  C*  SLEO  COMMAND  SUMMARY!*//*  LINE/TEXT  INSERT*  ,T')H,  'STRING 

*  REPLACEMENT* /3X , *ALN* ,T10,* INSERT  <A>F  TER  <L>lNE  N*,  T  40 ,  *  R  S  t  R 1C  4 
*'  ,T48,  *<R>tPLACE  <S>  TRl  NG*  , /3X  ,  *  RLN  •  ,  Tl  0  ,  *<<>CPLACE  <L>INF  fj  .OR. 
**  ,T40,*RSN3Pk0i*  ,  T50,'"P"  WITH  "O'*  IN'/  3X  , • RLN, M •  , T  15 , • L I NF S  N  T’« 
*RU  M* ,T40,»RSN,MSP*QS* ,T52  ,  • INDICATED  LINES.*/*  OUTPUT  COMMANDS', 
*T38, *STR ING  SEARCH*/  3X . *L f , T l 0, * 3  I SPL4 Y  CURRENT  < L> I NC * , T4U , • US $P 
*$*,T48,  * <D> I SPL A Y  LINES  * /3X , *LM*  , T 10, • OR  LINE  N.*,TV>,  'WITH  <S> 
•THING  "P",*/3X.*LN,M*,T10, 'LINES  N  THRU  M*,T43,  • DSN , M*P % • , T 4 8 , • 

•  SHOW  ANY  LINES* ) 

201  FORMAT  (3X,*S(,  TIO, *<S>HOW  A  ',  '"SCREEN"  UF  L  INFS  •  ,T»J,  *N-M  C.  ON  T  \ 

•  INING  "P"*/ 3X, *SN*,T  10,  'SHOW  A  SCREEN  FROM  LINE  N • , T38 , • C UNT? TL  C 

♦  QMMANOS  * /  3X,*M*  , TIO, 'SHOW  COMMAND  <M>ENU  I  TUI  SI  * , T,0, *0* , T 48 ,  * <D 
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*>PEN  A  FILL  OH */JX. • V* ,TlU,' SHOw  <V>EPiION  INFORMATION',  T52,Ts>pa 
*TE  A  FILE  FOP  ED  I T  ING' /I  40  ,  •  CT  COHANGE  THE  LOGICAL'/  5X,Mf  0><J 
•  IT  THE  EDIT  TYPfc  "4<RET>"«  ,  T4  J  , « ME  S  S  AGE  <T>FKUIN»,  'ATOM') 

WHITE  IUJT,200> 

»RITE  (OUT, 20  1 1 
RF TURN 
END 

subroutine  vfrs 

PART  ClF  SLEJ  PACKAGE 


COMMON  /BLKl/  IN, OUT 
INTEGER  IN, OUT 

220  FORMAT  C  SLEJ  VERSION  F0RT1.1  NPS  MONTEREY  830401*/  •  LOCAL  EXPTh 
*T  IS  C.  TAYLOR  40B-646-2691  0800-1700  *ST/P0T'//  •  LINE  i)FLCTE  KEY 
*  IS  <  >  USCin  OR  <CENT  SIGNS  •,  '(EBCDIC)'/'  CHARACTER  OUETF  K 
*EY  IS  <W>'//  •  EDITOR  LOGICAL  MESSAGE  TERMINATORS  ARE:'/  •  (l) 

♦<RETURN>  AND  (21  <*>'//  '  AND  CAN  BE  CHANGED  T-|  ANY  S  T  AN  DA0 


*  Fortran  character.'/  »  all  input  is  translated  tu 

*  THE  FOLLOWING  DEVIATIONS  FROM  SLED  STANDARD  w  ERE 

221  FORMAT  (  •  (1)  THE  UNIVERSAL  ENTRY  COMMAND  "SLED" 

•TIONS'  /•  FUR  A  NON-STANDARD  ENTRY:  "SLID l  < 

•  YP  £>  "•/  •  (2)  ONLY  ONE  FILE  PER  SESSION  CAN 

*3)  MAXIMUM  FILESIZE  IS  4000  LINFS.'/  '  (41  THE  U 

♦INDICATE  WHETHER  HE  IS  EDITING  A  •/  •  NEW  FIL 

•  EVENT  A  DISK  READ  ERROR  IN  F  OR  TRA  N.'/'  (5)  w  HEN 

*  AS  A  LOGICAL  MESSAGE  •/  '  TERMINATOR,  THE  LI 

•PADOEO  WITH  BLANKS  ON*  /  '  THE  RIGHT.  THIS 

•UNCTION  ONLY.') 

222  FORMAT  (  •  (6)  ONLY  THE  FIRST  OCCURRENCE  OF  A  SIR 

•  •/  •  IS  REPLACED  TO  PERMIT  FREE  SUHST I  TUT  IONS 

WRITE  (OUT, 220) 

WRITE  (OUT, 221) 

WRITE  (OUT, 222) 

HE  TURN 
END 

SUBROUTINE  OPEN 


THIS 


iENCE  OF  A  STR 
SUHST  ITUT IONS 


UPPER  CASt.  ’/  ' 
KEUUIRFD: ' ) 

INVOKES  INSTRIJC 
F  l  LENA  >  <F  1 1.  F  T 
HE  UI’FNF.  D.  •/  •  ( 
SER  IS  ASKED  n 
E  IN  ORDER  Tf  PP 
<RETURN>  IS  US FD 
NE  OR  STRING  IS 
AFFECTS  THE  RS  F 

ING  IN  EACH  LINE 
OF  BLANKS' ) 


OPENS  TEXT  FILE  AND  WORKSPACE  FILE 

READS  TEXT  FILE  INTO  WORKSPACE  IF  IT  ALREADY  EXISTS 
INITIALIZES  POINTERS  ETC. 


COMMON  /BLKl/  IN, OUT  /BLK2/  LPTR»MAXLIN»EOF  /  B  L  K  3  /  T  F ILC  /BI.K5/  MF 
•LAG.CRRCT,CUKLIN  /6LK6/  STACK. STKPTR 

Integer  in ,uuf ,tfile,line,errct,curl in, store, maxl in,eof,  stkptr, i, 

*NC 

INTEGER*2  LPTR, STACK ,FNAME , INL IN ,YES , NO, REPLY , BL INE 
LUGICAL  MFLAG 

DIMENSION  LPTRl 4000) , BLINE ( BO) ,STACK(4000) ,FNAME(80) ,INLIN(BO) 

DATA  VES/'Y'/,BLlNE/80*»  • /,NO/'N» /,  STORE/l/ 

1000  FORMAT  (80A1) 

2040  FORMAT  ('  -',14,'  LINES  IN  FILE:  • , BOA  I ) 

2050  FORMAT  (•  -CREATING  FILE:  ' , 9 DA 1 ) 

2400  FORMAT  (•  F I LEN4ME?> ' ) 

2410  FORMAT  (•  IS  THIS  A  NEW  FILE?>'» 
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FILE: 

2420 

5 


9048 

9050 

9051 
10 

9052 

9049 
20 


j 

A 

4 
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FORMAT  (»  -MAX  CAPACITY  4000  LINES  EXCEEDED-'  ) 

initialize 

MAXL  IN  *  4000 
CUPLIN  *  1 

RE  AO  IN  FILENAME  (COSMETIC ) 

IF  (.NUT.  MPLAG)  WRITE  (JUT, 24001 
CALL  GETLINIFNAMUNC) 

ASK  WHETHER  IT  IS  A  NEW  FILE  (TO  PREVENT 
WRITE  (  OUT  ,  2'VIO) 

RE  AO  (IN.  1000)  l  NUN 
REPLY  *  INLINII ) 

IF  ( (PfcPLY.NE. YES). AND. (REPLY. NE. NO) >  GO  T 
IF  (  .NUT. (REPLY. EQ. YES)  »  GO  TO  9048 
WRITE  (OUT, 2050)  FNAMfc 
EOF  *  l 
STKPTA  *  1 

ACTIVATE  FILE  WITH  AN  ACCESS 
LPTR(l)  *  l 

CALL  MEMORY ( S TORE , 8L I N£ ,LPTR( l ) ) 

GO  TO  9049 
CONTINUE 

NOW  REAU  IN  TEXT  FILE 
LINE  -  0 

IF  (.NOT.  (.TRUE.)  I  GO  TO  9051 
READ  (TFILE, 1000. EN0»10)  IVLIN 
LP  TR( LINE* 1 1  *  LINE  *  1 
CALL  MEMQRYISTORE.INLIN.LPTRf LINE*1> ) 

LINE  *  LINE  1 
GO  TO  3050 
CONTINUE 
CONTINUE 
IF  ( -NOT 
WRITE 
STOP 

CONTINUE 

STKPTR  =  LINE  *■  I 
EOF  »  STKPTR 
TELL  USER  FILE  OPEN 
WRITE  (OUT ,2040)  LI NE, PNAME 
CONTINUE 

DO  20  I  =  i , MAXL  IN 
STACK! I )  *  I 
CONTINUE 
RETURN 
END 

SUBROUTINE  s)UlT 
PART  OF  THE  SLEO  PACKAGE 

CLOSES  UUT  THE  WORK  FILE  A NO  WRITES  THE  NEW  UR  UNDATED 
TEXT  FILE 

COMMON  / 8LK2/  LP TR, MAXL IN , EOF  /8LX3/  TFILE  /dLKl /  IN, OUT 
INTEGER  MAXLINtI N»OUT , EOF, TFILE, L, LIMIT 
INTEGERS  LINF.LPT* 


.  (LINE.GE.MAXLIN) 
(OUT, 2420) 


)  GO  TO  9052 
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01  MENS 1  ON  LPtR{ 40  03) ,L1NE( HO) 

2000  FORMAT  (H0A1)  _ 

2450  FORMAT  (*  -',14,*  LINES  WRITTEN-*) 

RE W I  NO  TFIL6 

LIMIT  *  EOF  -  l 

00  90  L  *  1  iLt'II  T 

CALL  MEMORY (FETCH, LI NE »L  PT R ( L ) ) 

WRITE  ( TF  t  LE  ,2000 )  LINE 
90  CONTINUE 

WRITE  (OUT, 2450)  LIMIT 
RE  TURN 

SUBROUTINE  MEMORY  I ACT ION, L INE»PTR2) 

HANOLES  AUL^MEMURY^REFERENCES  USING  OIRECT-ACCESS  01 SK  FILE 

CURRENT  CAPACITY  IS  4000  LINES  „  „  „ _  _ _ 

REJUIRES  AT  LEAST  3  OEOICATEO  CYLINDERS  OF  DISK  SPACE  FOR 
WORK  FILE  UNDER  CP/C.MS  ON  AN  IBM  360/67 

COMMON  /8LK3/  TF ILE 

INTEGER  WFILE.TFILE, ACT  ION, STORE, PTR, AVAR, ERRS 
INTEGER  *2  LINE.PTR2 
OIMENSION  LINE ( 30) 

DATA  STORE/I/ 

L 000  FORMAT  (30AII 

DEFINE  WORK  FILE 
WF  ILE  »  13 

DEFINE  FILE  1 31 400Q , 80. E , A  VAR )  _ 

CONVERT  PTR2  FROM  INTEGER*2  TO  INTEGER 
PTR  a  PTR2  »■ 

INITIALIZE  READ  ERROR  COUNTER  AND  BEGIN 
ERRS  *  0 

IF  ( .NUT. (ACTION  .EQ.  STORE)  )  GO  TO  9054 
WRITE  (WF ILE* PTR, 1000)  LINE 
GO  TO  9055 

9054  CONTINUE 

F  FT  CH 

5  READ  (WFILE*PTR, LOOO , ERR»99 )  LINE 

9055  CONTINUE 
RETURN 

99  ERRS  *  ERRS  ♦  I 

IF  (ERRS  .LT.  10)  GO  TO  5 

STOP 

END 

SUBROUTINE  INPUT 
IMPLEMENTS  THE  INPUT  MOOE 

COMMON  /BLKl/  IN, OUT  /8LK2/  LP  TR,  MAXL  IN,  EOF  /BLK5/  MFL  AG,  r:  RR  f  T  ,CIJR 
•LIN 

INTEGER*2  PO, LPTR ,BLNK,OUT LIN  „  „ 

INTEGER  MAXL I N, EOF, ERRCT, CURL IN, STORE, I , J,IN,DUT,NC 
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9056 


LOGICAL  MFLAG 

DIMENSION  LPTRI 4000)  ,UUTL I N( 80 ) 

DATA  PO  /  • • 1 /,ST0PE/l/»8LNK/'  '/ 

FORMAT  ( •  I>*  ) 

IF  NO  INPUT  IN  QUtJE,  PROMPT  USE? 

IF  (.NUT.MFLAo)  *RITE  (OUT, 2110) 

CALL  Gfc  TUNIUUTL  IN, NC) 

IF  (  .NUT.  I  .NOT.  <  (<JUTLIN(  l  I  .  FO.PQ)  .  ANO.  (  OUTL  IN  (2  )  .  E  J  .  8LNK)  )  ) 
*T0  905  f 

IF  I .NOT. INC  .GT.  0)  )  GO  TO  9053 
UNLESS  IT  WAS  A  NULL  LINE 
MAKE  ROOM  FOR  NEW  INPUT 
IF  I .NOT.tLURLIN.LT. EOF)  }  GO  TO  9060 
J  =  EOF  -  CURL  IN 


9060 


9061 


905  8 


905  7 


00  10  I  «  1  ,  J 

LPTRIEUF  I  -  IJ  *  L  PTR ( E  OF  -  I) 

continue 

GO  TO  9061 
CONTINUE 

CURL i N  =  £ OF 

KEEPS  INPUT  TEXT  CONTIGUOUS 
CONTINUE 
EOF  =  EOF  I 

GET  A  NUMBER  FOR  NEW  LINE  FROM  STACK 
CALL  POP  (LPTR1CURLIN)) 

NOW  STORE  THE  NEW  LINE 

CALL  MEMORY (STOREfOUTLIN  »LPTR ( CURL  INI ) 
CURL  IN  *  CURL  IN  «■  L 
CONTINUE 

IF  NOTHING  IN  QUEUE,  PROMPT  USER 
IF  (  .NOT . MFLAG I  WRITE  (OUT, 21101 
CALL  GETLINIOUTLIN.NC) 

GO  TO  9056 
CONTINUE 
RE  TURN 
ENO 


SUBROUTINE  GETL IN (OUTL IN ,NC I 

GETS  A  LINE  FROM  TERMINAL;  QUEUES  UP  MULTIPLE  LINES 

COMMON  /8LK 1/  IN, OUT  /3LK4/  TCWAR  /SLK5/  MF  I. \G ,  EH  R  C  T ,  C  J«L  I  N 

INTEGER *2  l NL IN, OUTL IN, QUEUE .BLNK, TCHAR 

INTEGER  IN  ,OUT  ,t  RRCT  ,CURLIN,i  ,  J,  K,  L  I  NEL  N ,00 ,  C  N  >0 ,  NC  ,NCHAR S 
LOGICAL  MFLAG, NFLW 

DIMENSION  INLINI80)  ,OUTLIN(80>  , QUEUE  I  80 , 10)  ,NCMA‘<S(  10) 

DATA  H L N K / •  • /, LI NELN/30/, 8Q/0/, FNOQ/O/ 

1010  FORMAT  (  BOA  II 

2060  FORMAT  (•  -TRUNCATED;  ONLY  10  ITEMS  PER  LINE-') 

2070  FORMAT  (•  -ILLEGAL  CHARACTER  OR  BLANK  COMMAND- • | 

MFLAG  GOES  TRUE  WHEN  MULTIPLE  INPUT  IINFS  ARE  STACKED 
IF  (  .NOT. ( .NOT. MFLAG)  )  GO  TO  9062 
READ  I  IN, 10IJ,ERR*99,END*93 )  INLIN 
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20 
906  6 
9068 

9070 

9072 


907  3 


30 

9074 

9071 

9069 

9062 

C 

40 

9076 
906  3 
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I  *  l 

IF  I. NOT.  If  I. LE.LINELN).AND.( INLINII  ). fit .  T CHAR  )  )  )  GO  TO 
OUTLINI I )  =  I NL INI  I ) 

I  =  I  «-  L 


GO  TO 
CCNT INUC 
NC 
IF 
IF 


9064 


MFLAG  * 
)  GO  TJ 


.TRUE. 

9066 


>  GO  TO 
TO  9070 


9069 


=  1-1 

( INLIN(t).EQ.TCHAR) 

( . NO  T  » ( I.LL.LINELN) 

00  20  K  *  I , LI NELN 
OUTLIN(K)  =  0 L  NK 
CONTINUE 
CONTINUE 

IF  (.NOT.  ( INlINC I I.EQ.TCHAR) 

IF  ( .NOT. < tNUQ.GE. 10 )  )  GO 
WRITE  (OUT, 20601 
INLINII  )  »  BLNK 
GO  TO  9071 
CONTINUE 

ENOQ  *  ENOQ  ♦  i 
1  =  1*1 
J  =  l 

NF LAG  *  .TRUE. 

IF  (..NOT.  (  (  I.LE.  LINELN).  AND.  (  INLIN(  I  I.NE.TCHAR  ) ) 

»  9073 

OUEUEl J.ENOQI  *  INLINII) 

IF  ( INLINII). NE. SINK)  NFLAG  =  .FALSE. 

1*1*1 
J  *  J  *  l 
GO  TO  9072 
CONTINUE 

NCHARS(ENOQ)  *  J  -  1 

I F  I  (  I  .  GT.L  I  NELN)  .AND.  NFlrAS  )  NCHAR  SI  ENOO)  =0 
IF  <  .NO T .( J .LE.LI NELN )  )  GO  TO  9074 
i)0  30  K  »  J,  LI  NELN 
QUEUE  IK , ENOQ )  *  BLNK 
CONTINUE 
CONTINUE 
CONTINUE 
GO  TO  9068 
CONTINUE 
GO  TO  9063 
CONTINUE 

GET  LINE  FROM  QUEUE  INSTEAD 
UU  *  8Q  ♦  I 
NC  =  NCHARSIBQ) 

00  40  l  *  l.LINELN 
0UTL1NI I )  *  QUEUE! I, BQ) 

CONTINUE 

IF  ( .NOT. (BQ.EQ. ENOQ)  )  GO  TO  9076 
dQ  =  0 
ENOQ  *  0 
NFLAG  *  .FALSE. 

CONTINUE 

CONTINUE 


:<ni 
9  06  9 


GC  TO 
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no  noo  o  o  non 


FILE:  SLED? 


FURTRAN  n 


■lAVAt  POST ',i<  AOUATF  :.Ch;  f,| 


RETURN 

98  CONTINUE 
Rfc*INO  IN 

99  CONTINUE 

WRITE  (JUT, 20 TO) 
OUTI.  INU)  *  3LNK 
RE  TURN 
END 


SUBROUTINE  PJSHIXI 

PUSHES  A  POINTER  TO  A  FREE  LINE  ONTO  THE  STACK 

COMMON  /3LK 1 /  IN, OUT  /RLK6/  STACK, STKPTR 

INTEGER  STKPTR, IN, OUT 
lNTFC,f«*2  STACK,  X 
DIMENSION  STACK! *000) 

2030  FORMAT  !•  -FREE  LINE  LIST  STACK  OVERFLOW-’) 

IF  ( .NOT. (STKPTR. GT.IJ  )  GO  TO  Q078 
STKPTR  *  STKPTR  -  L 
STACK! STKPTR )  ’  X 
GO  TO  907Q 

9078  CONTINUE 

STACK  OVERFLOW 
WRITE  10UT, 2080) 

9079  CONTINUE 
RETURN 
ENO 


SUBROUTINE  P0P1X) 

POPS  A  POINTER  XU  A  FREE  LINE  FROM  THE  STACK 

COMMON  /BLKl/  IN, OUT  /BLK2/  LPTR, MAXL IN, EOF  /RLK6/  STACK, STKPTR 
INTEGER  STKPTR, MAXLIN, EOF, IN, OUT 
INTEGER*2  STACK, LPTR,X 
OIMENSIQN  STACK! 4000  # ,LPTR (4000) 

2090  FORMAT  (’  -ALL  SYSTEM  BUFFERS  FULL-’) 

X  -  STACK!  STKPTR) 

IF  (  .NUT.! STKPTR  .LT.  MAXLIN)  )  GO  TO  9080 
STKPTR  =  STKPTR  *■  l 
GO  TO  9081 

9080  CONTINUE 

WRITE  (OUT, 2090) 

9081  CONTINUE 
RETURN 
END 


SU3RQUM  NE  CNVRT  ( STK  ING  ,1  ,  J,  N) 

CONVERTS  CHARACTERS  l  THROUGH  J  OF  STRING  INTO  AM  INTEGER  N 
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noon 


FILE:  SL6J2 


FORTRAN  Tl 


NAVAL  t>  iSTiiRAOUME  SCWM 


C 

INTEGER  *2  STRING* DIGIT 

INTEGER  l.J.N.K.L 

DIMENSION  STRINGIBOI ,DIGIT<LOI 

DATA  0lGIT/'O*,*l«,*2,.'3,*,4‘,'5»,*e't'T*,*a','->'/ 
N  *  0  ' 

UQ  20  K  *  I,. I 
L  3  l 

9082  IF  (.NOT.  (STRING  (K).NE.DIGIT(D)  )  GO  TO  90*3 

L  ■  L  ♦  l 
GO  TO  9082 

9083  CONTINUE 

IF  (.NOT.tl  .Lt.  IJ)  I  GO  TO  9084 
N  *  N  (L-l  »*<L0**<  J-K)  J 
GO  TU  908> 

9084  CONTINUE 

N  *  -99999999 

return 

9085  CONTINUE 
20  CONTINUE 

RETURN 

ENO 


SUBROUTINE  COMLINIC 1, CLINE ,N1,N2, EFLAG) 

FINDS  AND  INTERPRETS  THE  LINE  .NUMBERS  CONTAINED  UN  A 
COMMAND  LINE.  CHECKS  FOR  ERRORS. 

INTEGER  Cl»Nl,N2,I,J 
INTEGER*2  CLINE, 8LNK, COMMA 
LOGICAL  EFLAG 
DIMENSION  CLINE! 80) 

DATA  8LNK/ ’  • /, COMMA/* , • / 

EFLAG  *  .FALSE. 

C  FINO  FIRST  DIGIT 

I  *  Cl 
J  »  I 

9086^  IF  C  .NOT .  I  (CLINEIJI  .NE.BLNKI.ANO.  (CLINE!  JI.NE.  COMMA))  »  GO  TO  909 

J  -  J  ♦  i 
GO  TO  9086 

9087  CONTINUE 

IF  I .NOT.! J.GE.80I  )  GO  TO  9088 
EFLAG  *  .TRUE. 

GO  TU  9089 

9088  CONTINUE 

C  CONVERT  FIRST  NUMBER  TO  AN  INTEGER 

CALL  CNV«T(CLINE,I,J-l,Nl) 

C  LOOK  FOR  SECOND  NUMBER 

I  *  J  *  1 
J  *  I 

9090  IF  (.NOT.  (CL INE( J) .NE.BLNK )  >  GO  TO  9091 
J  »  J  ♦  l 
GO  TO  9090 
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nnooono 


FILE:  SLED? 


■ORTHAN 


NAVAL  POSTGR  ADUATE.  SCH«'fll 


9095 


9091  CONTINUE  _  „ _ 

IF  (  •  NU  T .  (  J  .  GE  •  50)  )  GO  TO  9092 

EELAG  -  .TRUE. 

GO  TO  *093 

9092  CONTINUE^.  (  j  <EQ<  j,  ,  Gt1  TO  9094 

NO  SECOND  NUMBER  EXISTS 
N2  *  Nl 
GC  TO  9095 

9094  CONTINUE 

;  CONVERT  SECONO  NUMBER 

CALL  CNVRT  (CLINE ,  I . J-lt N2  ) 

9095  CONTINUE 

IF  (Nl  .GT.  N2 )  EFLAG  »  .T9 JE . 

9093  CONTINUE 
9089  CONTINUE 

RETURN 

pjurj 

SUBROUTINE  SEARCH(LIN£,STRING,NC.MATCH,MC1  ) 

SEARCHESS'LINE^CFURETHE  FIRST  OCCURRENCE  OF  'STRING'. 

•MATCH*  IS  SET  TO  '.TRUE.'  IF  A  MATCH  IS  FOUND. 

•NC  IS  THE  NUMBER  OF  CHARACTERS  IN  'STRING*  (REQUIRED  INPUT) 

•MCI*  IS  AN  OUTPUT  INDICATING  FIRST  COL  OF  MATCH 

INTEGER  l.J.L.NC.MCl 
INTEGERS  LINE, STRING 
LUGICAL  MATCH 

DIMENSION  LINE(80), STRING! 80) 

«  *- 
J  *  l 

9096  IFT<^NOTlF(  UNUT. MATCH). AND.  (J.LE.Bl-NC)  )  )  GO  TO  9097 

9098  IF  (.NUT.  ( ( S TRI NG( L I . NE . L I NE ( J ) ) .AND. ( J. LE .8 1-NC ) )  )  GO  TO  909 

*9 

J  «  J  ♦  l 

GU  TO  9098 

9099  CONTINUE 

IF  ( .NUT.( J.LE.81-NC)  )  GO  TO  9100 
I  «  1 

9102  IFUNOT.  ((STRING(I<-l).EQ.LlNE(L4ll)  .AND.  < ( L* l ) .L T . 00  ) . AN 
*0.11*1. LE.NC) )  )  GO  TO  9103 

L  *  L  ♦  l 

I  *  I  *  l 

GU  TO  9102 

9103  CONTINUE 

IF  (.NUT. (I  . EQ.  NC)  )  GO  TO  9104 
MATCH  *  .TRUE. 

GU  T J  9105 
910*  CONTINUE 

J  *  J  *  l 

9105  CONTINUE 

9100  CONTINUE 


9099 


9102 


9103 


910* 

9105 

9100 


FILE:  SLEU2 


FORTRAN  T I 


NAVAL  ROSTGRAOUATF  SrnC.lL 


GO  TO  ‘>096 
909  7  CONTINUE 
MCI  =  J 
HE  TURN 
END 
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Appendix  B 

SLED  PASCAL  Impl  ernentation 
(by  R.  Burnham,  R.  Coulter,  and  S.  Smart) 
CONCEPTS 


t 

The  purpose  of  this  programming  project  was  to  implement  a  sim¬ 
ple  text  editor  to  run  under  standard  PASCAL  as  defined  in  Wirth  [1972]. 
The  specifications  for  the  program  are  fairly  extensive  and  seek  to 
define  the  program  in  specific  enough  terms  to  ensure  portability.  In 
designing  and  implementing  this  program,  the  following  two  goals  were 
utilized: 

a.  PORTABILITY.  The  finished  program  should  be  capable  of  running 
under  any  impl ernentation  of  standard  PASCAL. 

b.  STANDARDIZATION.  The  finished  program  should  abide  by  the 
detailed  specifications  provided  for  the  user  interaction  with  any 

impl  ernentation  dependent  features  fully  documented  to  facilitate  use  by 
both  inexperienced  and  experienced  users. 


SYSTEM  DESIGN 


The  overall  design  for  the  text  editor  was  heavily  influenced  by 
the  strict  requirements  of  the  specification  document.  This  specifica¬ 
tion  delineated  the  commands  that  were  to  be  implemented  and  their  for¬ 
mat.  The  primary  design  task  involved  creating  an  efficient  system 
which  included  the  required  commands  in  an  implementation  Independent 
program. 


FILE  MANAGEMENT.  The  primary  purpose  of  any  text  editor  is  to 
create  and  modify  text  (character)  files  in  an  interactive  manner.  This 
problem  can  be  separated  into  several  functional  areas.  The  first  of 
these  is  file  manipulation  and  management.  In  as  much  as  PASCAL  was 
designed  primarily  as  a  pedagol oglcal  aid,  the  language  lacks  extensive 
Input/output  operations.  This  In  turn  allows  the  various  implementa¬ 
tions  to  define  these  operations.  Since  this  would  necessarily  result 
in  operations  which  were  not  portable.  It  was  decided  to  design  the  pro¬ 
gram  to  meet  the  requirement  that  the  user  be  able  to  access  external 
text  files  from  within  the  program  and  that  the  program  not  fall  if  the 
user  attempted  to  access  a  non  existant  file. 


The  Berkeley  Pascal  Implementation  for  the  UNIX  operating  system 
(vrfilch  was  used  for  this  effort)  defines  three  types  of  files,  in  addi¬ 
tion  to  the  standard  input  and  output  files.  The  first  of  these  con¬ 
cerns  explicit  naming.  In  this  case,  the  file  name  is  placed  in  the 
program  heading  and  acts  as  a  passing  "parameter"  from  the  UNIX  operat¬ 
ing  system  Into  the  program.  The  file  so  named  must  exist  as  a  UNIX 
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fil  e. 


The  second  type  is  an  Implicitly  defined  file.  These  files  are 
declared  in  variable  declaration  sections  of  program  blocks  and  have 
scope  in  the  same  manner  as  variables.  When  a  block  Is  entered,  the 
file  Is  created  with  the  UNIX  filename  tmp.x  where  x  is  an  integer 
representing  the  chronological  order  in  which  the  file  is  used.  When 
the  block  is  exited,  the  file  is  destroyed. 


The  third  type  of  file  uses  a  dummy  file  name  convention.  The 
file  name  is  declared  in  the  variable  declaration  section  but  can  be 
equivalenced  to  an  existing  file  by  the  system  functions  reset  and 
rewrite.  These  functions  create  a  UNIX  path  between  the  dummy  file  name 
and  the  actual  UNIX  name,  which  may  be  supplied  during  execution.  In 
the  case  of  rewrite.  If  no  UNIX  file  exists,  it  is  created. 


The  dummy  file  name  seemed  ideally  suited  to  the  program 
requirement  that  the  user  be  able  to  create  and  access  files  at  will. 
However,  it  is  necessary  to  know  whether  the  file  which  is  to  be  opened 
has  been  previously  created.  Since  It  is  impossible  for  the  program  to 
access  the  UNIX  user's  directory  to  determine  if  files  exist,  it  was 
decided  to  create  a  SLED  directory  containing  the  file  names  and  sizes 
of  all  files  created  In  the  SLED  environment.  In  the  event  that  the 
user  desired  to  edit  a  file  which  existed  in  his  UNIX  directory  but  not 
in  the  SLED  directory,  the  SLED  directory  could  be  edited  to  include 
this  filename.  To  implement  this  feature,  it  was  decided  to  explicitly 
name  this  directory  <d1rectory>  as  a  UNIX  file.  Any  additional  files 
needed  as  temporary  storage  locations  to  be  utilized  while  a  file  was 
being  edited  could  then  be  Implemented  as  implicitly  named  files,  since 
their  exlstance  Is  not  Important  to  the  user  (unless  the  amount  of  file 
space  allocated  to  the  user  by  the  operating  system  Is  limited). 


TEXT  MANIPULATION.  As  a  text  editor,  SLED  has  to  carry  out  two 
basic  functions.  The  editor  must  insert  and  delete  lines  of  text  In  the 
file,  and  must  search  lines  for  pattern  matching  and  replacement. 
These  functions  are  related  and  are  the  dominant  factor  In  the  choice  of 
an  effective  data  structure. 


PASCAL  has  several  data  structure  constructors  In  the  language 
vrtilch  can  be  used  to  fulfil  these  tasks.  These  Include  the  linear 
array,  record,  and  pointer.  The  salient  features  of  these  constructors 
In  regards  to  the  tasks  Involved  will  now  be  discussed. 


The  PASCAL  array  is  similar  to  arrays  In  other  languages  with 
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the  exception  that  the  elements  of  the  array  may  be  complex  data  types 
such  as  records.  Since  the  array  must  be  statically  defined,  the 
storage  can  be  highly  efficient.  Lines  of  text  can  be  stored  as  charac¬ 
ter  arrays.  This  has  the  advantage  that  locating  a  given  line  or  char¬ 
acter  can  be  accomplished  by  simply  subscripting  a  variable.  In  addi¬ 
tion,  overhead  is  at  a  minimum  since  no  pointers,  links  or  other  devices 
are  required.  The  array  suffers  from  the  disadvantage  that  insertions 
and  deletions  are  expensive  as  they  require  copying  on  the  average  half 
of  the  array.  Furthermore,  since  the  array  must  be  defined  staticly,  It 
is  likely  that  much  of  the  array  will  be  empty  at  any  one  time. 

The  record  data  structure  is  similar  to  the  array  except  that 
the  el  ements  of  the  record  need  not  be  of  the  same  data  type.  By 
itself,  the  record  offers  no  advantages  as  compared  to  the  array.  How¬ 
ever,  the  record  fields  can  be  used  to  act  as  pointers  or  links  to  other 
records  thus  allowing  the  creation  of  lists  or  trees.  Trees  offer  the 
advantage  that  sorting,  inserting,  and  deleting  can  be  carried  out  quite 
efficiently.  In  addition,  searching  is  easier  and  more  efficient  than 
with  linked  lists  (although  not  as  efficiently  as  an  array).  The  major 
disadvantage  of  the  tree  is  the  large  amount  of  overhead  required  since 
each  interior  node  must  contain  a  link  to  each  descendant.  The  linked 
list  can  be  considered  as  a  compromise  of  the  tree  structure.  Inser¬ 
tions  and  deletions  are  still  efficient,  but  searching  requires  follow¬ 
ing  a  string  of  pointers  through  the  list.  Since  only  one  pointer  is 
required  for  each  node,  the  amount  of  overhead  is  approximately  halved 
compared  to  the  tree. 

The  pointer  type  represents  a  method  of  dynamic  allocation  of 
records  to  a  linked  list  or  tree  structure.  This  offers  the  advantage 
that  space  need  not  be  allocated  until  actually  required.  Unfor¬ 
tunately,  the  methods  for  allocating  and  de*al locating  memory  space  via 
pointers  Is  poorly  defined  In  the  language,  resulting  in  implementation 
dependent  designs.  In  particular,  standard  PASCAL  allows  pointers  to 
records  to  be  destroyed  resulting  In  the  creation  of  garbage.  No  gar¬ 
bage  collection  Is  carried  out  by  the  language  to  recover  this  memory. 
Therefore,  a  common  technique  Is  to  place  unused  records  Into  a  "free" 
list.  This,  however,  defeats  the  idea  of  dynamic  allocation. 

Based  on  these  considerations.  It  was  decided  that  lines  within 
the  text  file  would  be  treated  as  a  linked  list.  This  would  facilitate 
the  line  append  and  line  replace  operations.  The  overhead  for  this 
structure  would  then  be  one  pointer  per  line,  which  was  not  considered 
excessive.  Rather  than  depend  on  the  pointer  type  to  create  and  manage 
list  elements.  It  was  decided  that  the  list  would  consist  of  an  array  of 
line  records,  with  each  record  consisting  of  a  pointer  to  the  next  line 
and  the  contents  of  the  line. 

In  representing  the  characters  of  a  given  line,  It  was  necessary  to 
decide  between  using  another  linked  '1st  for  elements  of  a  line  or  a 
character  array.  Again,  the  linked  list  would  make  character  Insertions 
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and  deletions  efficient.  Since  this  would  require  a  pointer  for  each 
character,  about  half  of  the  memory  space  allocated  would  be  overhead. 
A  possible  compromise  would  be  to  have  each  list  node  consist  of  several 
characters.  This  would  create  difficulties  In  Insertion  and  deletion 
and  would  require  a  complicated  algorithm  to  implement.  It  was  decided 
to  represent  the  line  as  a  character  array.  This  had  the  benefit  of 
making  the  pattern  matching  algorithm  easier  to  implement  as  well  as 
reducing  overhead. 

PARAMETERIZATION.  To  allow  for  adaptations  of  the  program  to 
other  systems,  the  parameters  for  the  data  structure  are  defined  in  a 
constant  declaration  block  In  the  main  program.  This  allows  Implementa¬ 
tions  to  scale  the  size  of  the  data  structure  to  the  amount  of  memory 
available.  To  further  enhance  portability,  it  was  decided  to  localize 
the  input/output  procedures  In  separate  routines  which  could  be  replaced 
when  implementing  the  system  on  other  machines. 


IMPLEMENTATION 


The  linked  line  list  was  implemented  as  an  array  of  line  records 
named  <buff>.  Each  line  record  consists  of  an  integer  pointer  to  the 
array  element  (record)  of  the  next  line  and  a  120  character  packed 
array.  This  size  allows  the  creation  of  a  line  which  will  cover  the 
lineslze  of  most  standard  output  devices.  In  addition,  a  separate 
record,  <head>,  serves  as  a  pointer  into  the  line  list  and  contains  the 
number  of  the  first  line  presently  in  the  buffer. 

GENERAL  STRUCTURE  OF  SLED.  The  editor  basically  has  five 
categories  of  text  processing  procedures.  The  first  of  these  are  the 
control  commands.  There  are  three  types  of  control  commands:  a  change 
of  logical  message  terminator  so  that  the  user  may  select  the  symbol  or 
character  he  desires  to  indicate  an  end  of  a  line  or  command,  a  command 
to  exit  the  editor  mode  which  will  write  the  text  file  to  the  user's 
file  as  well  as  terminate  the  program,  and  a  command  to  open  a  file  for 
the  user,  either  a  new  file  or  an  existing  file  from  his  directory  and 
close  any  previously  opened  file.  As  discussed  In  the  section  on 
design,  this  was  Implemented  as  a  separate  SLED  directory.  The  contents 
of  the  directory  consist  of  the  UNIX  file  name  along  the  total  number  of 
text  lines  In  the  file.  In  addition  to  this,  a  scratch  file  Is  main¬ 
tained  to  allow  updating  of  the  directory  contents. 

To  implement  the  logical  terminator.  It  was  decided  to  limit  the 
terminators  to  printable  characters.  This  allowed  the  terminator  to 
serve  as  an  end  of  line  signal  In  the  text  buffer,  eliminating  the  need 
for  creating  a  separate  list  of  line  lengths  or  employing  some  other 
line  length  algorithm. 

The  second  group  of  commands  consists  of  those  commands 
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concerned  with  output  of  the  text  file  to  the  CRT  scree.  These  commands 
are  divided  Into  those  which  display  a  specific  portion  of  text  and 
those  which  display  large  blocks  of  text.  These  commands,  called  output 
commands,  consist  of  routines  to  display  the  current  line,  a  specific 
line  or  a  designated  number  of  lines.  The  user  optionally  selects  a 
from-1 ine/to-line  pair  of  nunbers  for  display  and  defaults  to  the 
current  line  (defined  as  the  last  line  displayed  or  last  line  operated 
upon).  Another  output  command  screens  a  large  block  of  text  for  the 
user  by  using  a  from-line  Input.  These  display  commands  allow  the  user 
to  edit  large  portions  of  his  text.  Two  other  commands,  which  do  not 
process  or  handle  text,  and  are  considered  output  commands  are  a  pro¬ 
cedure  to  display  a  command  menu  to  assist  the  user  with  SLED  procedures 
and  a  display  of  the  version  listing  for  a  more  sophisticated  user. 

The  third  type  of  commands  are  those  which  handle  insertion  of 
text  into  the  file.  The  line  insertion  commands  cause  the  editor  to 
enter  the  insert  mode  (all  other  procedures  are  in  the  edit  mode). 
These  commands  allow  insertion  of  new  lines  into  the  text  as  well  as 
replacing  a  specific  line  or  a  group  of  lines  in  the  text.  In  this  way, 
the  user  can  create  or  destroy  portions  of  his  text  file  by  linking  the 
new  lines  into  the  buffer  list. 

A  fourth  command  searches  the  text  for  a  particular  character  or 
string  of  characters  and  displays  them  to  the  user.  Closely  related  to 
this  is  the  command  to  replace  these  characters  and  strings  in  the  body 
of  the  text,  either  in  a  specific  line,  a  group  of  lines  or  throughout 
the  entire  text.  These  two  types  of  commands  along  with  the  line  inser¬ 
tion  commands  form  the  basis  of  the  text  processing  procedures,  while 
the  output  and  control  commands  form  the  basis  of  the  text  handling  pro¬ 
cedures.  To  implement  the  pattern  matching  routine  the  Knuth,  Morris, 
Pratt  algorithm  (as  discussed  in  Knuth  and  elsewhere)  was  utilized. 
This  algorithm  uses  the  concept  of  a  finite  automation  to  determine  how 
far  to  advance  the  pattern  along  the  target  line  in  the  event  of  a 
mismatch  between  the  pattern  and  its  target.  This  is  done  by  creating  a 
table  of  edges  which  represent  failure  in  the  automaton.  As  an  example, 
if  the  pattern  consists  of  three  identical  letters  and  the  first  two 
match  but  the  third  one  does  not,  instead  of  advancing  the  pattern  by 
one  position  relative  to  the  target  the  pattern  can  be  moved  three 
places  since  the  first  character  cannot  possibly  match  the  third  charac¬ 
ter  of  the  target.  The  next  table  determines  how  far  to  advance  dthe 
pattern  if  matching  fails  with  the  ith  character  of  the  pattern.  In 
this  way,  no  back-tracking  in  the  target  is  required  and  the  algorithm 
is  O(n).  The  diagram  attached  as  Figure  Bl.l  shows  the  general  scope  of 
SLED  as  defined  In  the  specification  document.  It  basically  shows  the 
editor  commands  required  by  the  system  grouped  into  the  five  primary 
command  areas;  output,  control,  line  Insertion,  string  serch  and  string 
replacement.  The  diagram  also  shows  the  different  editor  command  modes. 

SPECIFIC  STRUCTURE  OF  SLED.  Based  on  the  general  structure  of 
SLED  as  proposed  by  the  problem  specification  and  as  diagramed  above, 
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the  programming  team  made  a  detailed  study  of  the  basic  routines  needed, 
how  these  routines  would  Interact  and  the  data  structures  and  file  han¬ 
dling  procedures  that  would  be  needed.  The  Figure  B1.2  is  a  schematic 
of  the  Implementation  of  SLED  as  described  In  this  documentation.  In 
implementing  the  SLED  program,  a  top-down  methodology  was  utilized  in 
defining  the  program  processes  needed  to  meet  the  requirements  stated 
above. 


There  are  four  general  sections  or  levels  to  the  program.  The 
first  level  acts  as  a  traffic  controller  for  the  entire  program.  It 
reads  each  of  the  user  input  commands  and  branches  to  the  appropriate 
subroutine.  The  main  program  dunctlons  as  this  first  level  and  screens 
the  commands,  eliminating  the  Incorrect  ones  and  processing  the  properly 
entered  ones.  It  is  the  framework  in  which  SLED  performs  its  functions. 

At  this  same  level,  the  change  terminator  is  located  primarily 
because  it  does  not  handle  the  user  data  except  to  place  the  new  termi¬ 
nator  symbol  in  the  text  file  (see  procedure  Changeterm  documentation). 
It  is  properly  classified  as  a  special  procedure  in  program  control 
rather  than  text  processing  or  text  handling. 

The  second  level  of  the  program  contains  the  bulk  of  the  text 
processing  procedures  and  consequently,  the  bulk  of  the  coding.  One 
subgroup  contains  the  procedures  which  display  the  lines  of  text  from 
the  user's  file.  In  many  ways,  it  is  similar  to  the  output  section  out¬ 
lined  in  the  original  evaluation.  In  addition  to  the  screen  line  and 
display  line  procedures,  we  have  Included  the  string  search  procedure  in 
this  subgroup  because  it  functions  in  a  similar  manner  in  that  it  is 
involved  in  the  display  of  strings  within  the  lines  of  text.  This  sub¬ 
group  interfaces  with  a  major  subgroup  of  the  third  level,  namely  the 
commands  which  read  the  user's  line  number  designations,  translate  them, 
and  fetch  the  lines  from  the  text  file. 

The  second  major  subgroup  of  this  level  consists  of  the  commands 
which  handle  the  majority  of  the  text  Insertions,  deletions  and  string 
processing.  These  Include  appending  lines,  replacing  lines  and  replac¬ 
ing  or  changing  strings.  These  commands  were  grouped  together  due  to 
their  similarity  of  function  and  conmonality  of  coding.  They  each  have 
major  subprocedures  at  this  level  and  Interface  with  the  primary  text 
handling  procedures  at  the  fourth  level. 

Also  found  at  the  second  level  are  two  other  groups  of  pro¬ 
cedures  which  are  of  less  Importance  than  the  text  processing  procedures 
but  are  useful  and  necessary  segments  of  the  SLED  program.  The  first  of 
these  are  the  control  commands  which  open  and  close  the  file.  They  are 
obviously  required  file  handling  procedures  and  perform  the  functions 
normally  expected  of  a  text  editor.  They  Interface  with  key  implementa¬ 
tion  dependent  procedures  at  the  third  level. 

The  last  major  subgroup  of  the  second  level  is  the  required 
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command  menu  and  version  document.  The  call  to  these  procedures  is 
rather  simple  and  uncomplicated.  Rather  than  palce  the  documents  in  the 
PASCAL  program,  we  decided  to  anploy  the  existing  UNIX  directory  to  hold 
them.  These  files  are  explicitly  named  in  the  program  as  <menu>  and 
<version>.  The  file  contains  the  current  command  menu  as  well  as  the 
version  and  any  changes  to  either  of  these  to  facilitate  assisting  the 
user  can  be  made  quickly  and  efficiently. 

The  third  level  of  programming  of  SLED  contains  two  subgroups, 
each  of  which  are  subroutines  for  major  procedures  in  level  two.  The 
first  subgroup  are  theroutines  which  transform  the  user  line  number 
requests  into  from-line/to-line  pairs  and  fetch  the  appropriate  lines 
from  the  user's  text.  They  are  text  handling  commands  and  are  part  of 
the  output  section  in  the  original  specification. 

The  second  subgroup  interacts  with  the  open  and  close  file  rou¬ 
tines  and  are  key  text  handling  procedures.  They  are  dependent  upon  the 
impl ementaion  of  PASCAL  in  use  on  the  computer  system.  The  procedures 
utilize  a  directory  file  which,  like  the  menu  and  version,  is  located  in 
the  UNIX  directory. 

The  fourth  level  of  SLED  contains  the  key  text  hadling  commands 
to  move  data  in  and  out  of  the  buffer  when  required.  All  of  the  major 
procedures  of  SLED  call  the  read  buffer  and  write  buffer  routines  to 
move  through  the  user's  file.  These  procedures  are  also  implementation 
dependent. 

A  minor  procedure  of  the  program  Is  also  found  at  this  level 
which  causes  the  command  menu  to  be  printed  when  the  user  makes  two  con¬ 
secutive  errors,  a  requirement  of  the  SLED  specification. 

TESTING  AND  EVALUATION 


The  constraints  of  time  prohibited  an  exhaustive  and  thorough 
evaluation  of  SLED.  There  has,  however,  been  extensive  and  continuous 
testing  of  the  modules  of  SLED  in  the  initial  programming  phases  and  as 
the  program  took  its  finished  form.  While  not  exhaustive  the  testing 
and  evaluation  performed  by  the  programming  team  has  resulted  In  a  fully 
operational  and  effective  editor. 

Once  the  major  operating  bugs  were  Identified  and  removed  from 
the  program,  the  task  of  specific  debugging  of  each  comman  and  its 
interaction  with  the  other  commands  of  SLED  was  undertaken.  Including 
the  testing  of  pathelogical  errors  where  purposely  erroneous  and 
Improper  commands  were  input  with  the  express  purpose  of  causing  the 
system  to  perform  incorrectly  or  fail. 


While  we  are  satisfied  that  the  program  will  function  as  required. 
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there  is  further  room  for  testing  of  the  system.  The  limited  time 
available  precluded  the  testing  of  large  files  and  extensive  directories 
and  the  actual  production  of  useable  and  functional  files.  Besides  the 
testing  of  large  files,  a  period  of  time  should  be  spent  by  disin¬ 
terested  parties  (actual  users)  in  using  SLED  to  produce  files  and  test¬ 
ing  the  system.  From  this  evaluation,  any  remaining  system  bugs  should 
be  easily  identified  and  corrected. 
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SLED  -  PASCAL 


► 


< 


SLED 


Programmed  by:  Robert  M.  Burnham 

Ronald  J.  Coulter 
Scott  M.  Smart 

Naval  Postgraduate  School*  Monterey*  California 
Specification:  20  February  1980 

Written:  12  March  1980 

Comoiled:  14  March  1980 

Source  Comouter:  PDP  1 1 —SO 
Object  Comouter:  PDP  1 1 —SO 
Language:  PASCAL 

Imolementat ion:  DC  Berkeley  PASCAL 

File  Location:  UNIX  PWH  /work/cs JOO/smart /tled.p 


F  di tor  File  Name 


s I ed.p 


Documentation  F f 1 •  Name:  sled.doc 


Program  Access:  tyoe  "  SLED  * 


Project  Spec teat  ion:  Issued  Separately 


Abstract:  SLED  is  a  very  simple  general  purpose  text 

editor  implemented  in  PASCAL  and  desioned 
to  be  relatively  transportable  to  other 
PASCAL  systems.  It  performs  a  minimum  of 
the  usual  text  editing  and  display  features 
found  in  a  typical  text  editor. 


> 

< 


BEGIN  sun 


*  DOCUMENTATION  FOR  THE  OPERATION  OF  * 

*  THE  BODY  OF  THE  MAIN  PROGRAM  CAN  * 

*  BE  FOUND  AT  CINE  2376  « 


program  s I ed( i nout * menu* ve r s i on* Ou t put , di rectory) > 
label  10,100) 


const 

bufslze  =  SO; 

1 i nes ire  =  120; 
ni 1 1  s  • I ; 
namesize  =  B1 

errmsg  =  'INVALID  COMMAND'; 
blank  =  •  '; 

comma  =  ' « '  l 

error  =  •  ••  DATA  ENTRY  ERROReeePLEASE  REENTER  DATA  »» 

type 

line  -  record 

next  line  :  -1.. bufslze* 

1 inest  ring  :  packed  array  1 1 . . I i nesi ze)  of  char; 
end; 

buffer  =  array  1 1 . .huf si ze)  of  line; 
patstrino  =  oacked  array  1 1 . . 1 inesi zel  of  char* 
header  =  record 

firsttine:  integer; 

Ptr  :  -1 ..  buf size; 
end; 

var 

letter*  c,  ch.  ct  :  char  ; 

errcnt*  trutsize*  curline  s  integer  * 

menu*  version,  mfile,  temnfile*  directory*  tempd  :  test  t 
buff  :  buffer; 
free  ;  •!.. bufslze* 
head  :  header; 


PROCEDURE  NR1IFBUF 


f 


PURPOSE:  this  orocedure  writes  the  contents  of  the  lint 

buffer  to  the  currently  open  file,  mfile  Is 
e  dummy  file  name.  During  execution,  this 
file  name  is  replaced  by  a  "path"  to  the 
UNIX  file  name  specified  during  a  rewrite 
or  reset  operation.  File  tempfile  ia  a  temporary 
file  used  during  read  and  write  operations  to 
restore  the  user's  UNIX  file.  The  temp  file 
exists  during  execution  as  UNJX  file  tmp.£.  If 
execution  terminates  normally*  this  file  is  removed 
from  the  system. 

The  procedure  reads  from  the  user's  file  (mtile) 
to  the  temp  file  until  the  point  where  the  buffer 
is  to  be  inserted  is  reached.  At  this  point*  the 
contents  of  the  buffer  are  written  to  the  temp 
file.  After  the  buffer  lines  have  been  transfered* 
the  remaining  lines  of  the  user  file  are  read  and 
written  out  to  the  temp  file.  The  temp  file  now 
contains  the  complete  file.  The  entire  temp  file 
is  then  read  and  written  to  the  user's  file. 

VARIABLES:  temofile:  scratch  file 

mfile:  dummy  name  for  user's  UNIX  file 

fname:  actual  UNTx  file  name 

point:  pointer  to  the  buffer 

.  . . . . . 


procedure  writebuf* 

type  pointer  =  inteaerj 

var  i  :  inteaerj 
ch  :  char, 
ooint  :  oo.interj 

begin 

I 

read  all  lines  preceedino  the  first  line  of  the  buffer  from 
the  user's  file  to  the  scratch  file 
» 


rtiirl  t  e  (  temp H  !#)• 
rct«t'(*H  I  r  *  fnaa* )  J 

<or  <  1  to  (heart. f i rst I ine  -I)  rto 

beoi  n 

while  not  eoln(efile)  rto 
begin 

reart(»  f i I  e  *  eh ) * 
write(tempfi I  e  *  ch ) * 
en'li 
end. 


'-I 


f 

x' 

b 

> 


f 


I 

set  the  list 
and  read  all 
» 


pointer  to  the  first  element  of  the  buffer 

lines  in  the  list  fro*  the  buffer  to  the  scratch  file 


point  Ss  heart.pt  r ! 
while  point  <>  nill  do 
hen  in 


while  <i  <  llneslie)  tnd  (huf f fpointl .1 inestringfil 
«>  ct)  do 
beoi  ° 

wr i t e(»e*of i le»buf  f [point  I . line string  111 >> 

1  :=  i  ♦  l 


end* 

wrltelnttewpfile)} 

point  :  =  buf f (point J .nest  I ine* 
end; 


{reset  the  buffer  status  record) 

head.pt r  !=  ni  1 1 > 
head. f i rst 1 ine  J*  0* 
free  : -  I* 

for  i  :=  l  to  huf site  -1  do 
Ouf f (i I .next  1 ine  j=  i  ♦  If 

buf f fbufsitel .next! ine  S=  nillf 


read  oast  the  lines  of  the  user's  file  which  were  written  to  the 
buffer  previously 
) 


for  i  :«  1  to  «0  do 
beuin 

while  not  eof(*fil*>  do 
read  I n (*f lie)* 

endf 


f 


(read  ill  reninlnq  lines  from  the  user's  file  to  the  scrstch  file) 

while  not  eof(afile)  do 
beoin 

while  not  eoln(mfile)  do 
begin 

reirilsi i lerch)) 

write(teeof i le#ch); 
end! 

it  not  eof(mfite) 
then  begin 
readlnlmf i le)# 
write)n(tenr>fi  I  el* 
end; 
end* 


(write  the  entire  scratch  file  into  the  user's  file) 

rewr i te(«f i le# fnaae) I 
reset (temof i le); 
while  not  eof ( teaof i le)  do 
beoin 

while  not  eolntteepf i le)  do 
begin 

read (tempt i le#ch); 
write(«f i le«ch); 
end# 

if  not  eof (te«pf i le) 
then  begin 
readlnl temof i le); 
writelnfef ile); 
end# 
end; 


end  ; 


(  writebuf  ) 


( 


V 


PROCEDURE  KEADbUF 


PURPOSE:  This  procedure  reads  a  block  o*  40  lines  trow  a  user 
file  into  the  buffer.  Mfile  is  a  dummy  file  name 
which  is  replaced  durinq  execution  by  a  "path"  to 
a  UNIX  file.  Strtline  is  the  first  line  of  the 
file  to  be  placed  in  the  buffer.  this  line  and 
the  next  J4  (if  they  exist)  are  read  from  the  user's 
file  and  linked  into  the  list. 

VARIABLES:  mfile:  dummy  filename  for  user's  text  file 

fname:  actual!  UNIX  file  name 
strtline:  first  line  to  be  Disced  in  buffer 

textsize:  total  number  of  lines  in  user's  file 


procedure  readbuf (st rt 1 ine  :  integer); 

var  ch  :  char) 

i.k  :  integer) 
numline  :  integer) 

begin 

(determine  number  of  lines  to  be  placed  in  buffer) 
numline  ! =  40; 

if  (textsire  *1  -  strtline)  <  numline 

then  numline  :  =  textsize  +1  -  strtline) 
reset (mf i I e, fname) ) 
for  i  :=  I  to  (strtline  -  1)  do 
readln(»f lie)) 

# 

(  insert  lines  into  buffer  I 


for  I  :=  1  to  numline  do 
begin 
k  :*  I) 

while  not  eoln(mfile)  do 
begin 

read(mf i le.ch); 

buf f I i ) . 1 inest r ing (k)  : =  ch) 

k  js  k  ♦  I) 

end) 


buff I  i  1 .1 (neit  r fnq  f k)  :s  ct» 
it  i  >  i  then  huff C i  —  1 1 .next  line  S*  II 
raadlnlmt i  )e)J 
end? 

buf Mnuil ine) .nenlline  t*  nfll? 
tree  I -  nu»l in»  t  I! 

for  k  :  =  nu*1in«  t  I  to  bufsiie  •  t  do 
buff  Ik  I  .next  Hne  S*  k  ♦  *  S 
huff  IbufdireJ .next  1 »ne  ■  :  nfll? 


(update  buffer  stefut  record > 

head.otr  : -  I? 

head. f i rst line  !*  strtlfne? 

end  ? 


f  reedbuf  > 


I 


PROCEDURE  EETCHL1NE 


PURPOSE:  This  procedure  takes  the  number  values  produced  by 

-------  the  Lineoet  procedure  and  causes  the  appropriate  number 

of  lines  to  be  printed  on  the  CRT  screen.  It  is  called  by 
those  procedures  which  need  to  enter  the  users  buffer 
and  extract  part  of  the  text.  It.  in  turn,  calls  the  procedures 
Readbuf  and  Writebuf  which  are  part  of  text-buffer 
storage  system.  If  the  users  request  for  text  exceeds 
the  actual  size  of  the  text,  this  procedure  will  print 
all  the  text  that  is  available. 

VARIABLES:  The  follwing  variables  are  used  in  Fetchline: 

---------  x.  p:  countino  numbers  for  iterative  routines 

pointer:  number  pointer  to  the  next  line 
fline:  from-line  value 
tline:  to-line  value 

Global  variables  include: 

textsize:  the  number  of  lines  in  the  users  text 

curline:  current  line  value 

head. f i rst I ine:  first  line  of  the  users  text 
head.ptr:  pointer  to  the  first  line 

buf f (pointerl .next  I ine:  number  value  of  the  next 
line  in  the  buffer 

buff (pointer) .1 inestringlpl :  character  value  of  the 
line  in  the  buffer 


> 


procedure  fetchline  (  fline.  tline  :  integer  )  » 


ver 

x.y.  o.  pointer  i  integer  I 

beo  in 


if  fline  >  textsize 
then 


fline  :*  textsize  I 
if  tline  >  textsize 


then 


tline  :=  teataiae  t 
if  fline  <  Head. f i rat  line 
then 


writebuf  f 
readbuf  C  ♦lint  )  * 


begin 


and  * 

pointer  8=  head.otr  J 


for  a  :=  heed. f  i  rat  1  ine  to  (  fline  -  I  )  do 

begin 

pointer  :»  buf f  Ipointerl .neat  I ine  I 
if  pointer  s  nlll 
then 


i  aearchea  for  the  froe-Hne  value 
in  the  uaera  teat.  If  not  fn  the 
buffer*  then  the  reat  of  the  file 
ia  searched.  I 


Ot 

ro 


begin 


end  » 


writebuf  t 
readbuf  (  a  )  I 
pointer  :*  head.ptr 


end; 


for  a  J -  f I ine  to  tline  do 
v  :  =  a  J 

write  (  1 


I  print  out  each  line*  character  by 
character*  fro*  the  buffer  to  the 
CRT  for  the  f  roo-l  ine/to-Hne  valuea. 
If  the  buffer  ia  exceeded*  then  the 
neat  block  of  teat  is  read  to  the 
buffer.  1 


begin 


'*y:  5* 


)  ; 


p  :=  I? 


while  (buf f  Ipointerl . I ineat ring 


•tr 


\  -i 


I 


and  (o  <  do 

beqi  n 


vr(t«<  buff  (pointer) .  linestrlnqlol  )  } 
o  ss  p  ♦  1 


end  ; 

writeln  i 

if  *  <  tline  then  begin 

Dointer  »*  buf f Ipoint erl ,nt> t ) i ne  } 
i f  pointer  =  ni  I  1 
then 


end} 

end 


begin 

writebuf  I 
readbuf  (  y  )  } 
pointer  i*  heed.ptr 

end  } 


curl ine  :  *  tline  t 


<  reset  the  yelue  of  the  current  line  > 


If etchl ine) 


I 


PROCEDURE  LINtr.t  T 


PURPOSE:  This  procedure.  called  by  some  of  the  wain  procedures  of 

—  SLED,  reads  the  line  number  of  the  user  input  inst  ruct  ions# 

constructs  a  *  f ron-l ine/to-1 ine  *  pair  of  variables  and 

checks  for  errors  in  user  input.  The  user  can  designate  the 
current  line  with  a  carriaqe  return  or  a  change  terminator 
command.  insert  a  value  for  any  other  line  desired  or 
specify  lines  from  one  number  to  another. 

The  values  produced  by  this  procedure  are  passed  back  to 
the  callinn  command.  This  procedure  is  called  by  Oisplayline 
and  Screen! ine. 

VARIABLES:  The  following  local  variables  are  used: 

---------  line:  the  from-line  value 

toline:  the  to-line  value 

screencheck:  boolean  check  value  to  detect  an  error 

and  signal  the  calling  procedure  to  take  specific 
action 

num:  value  of  the  first  number  read  {  to-line  value  ) 

tnum:  value  of  the  second  number  read '(  from-line  ) 

temp:  tempory  variable  for  numbers 

check:  boolean  checker  for  an  end-of-line  character 

Global  variable  reference: 

curl ine:  current  line 
ct:  change  terminator  character 

errcnt:  the  current  user  error  count  for  the 

Erroroutine  procedure 


> 


procedure  I ineqet  (  var  line. toline  :  integer;  var  screencheck  :  boolean  i  /* 

var 

num.  tnum.  temp.:  integer  ! 
check  :  boolean  ; 


beoin 


<  Head*  in  the  first  number  ana 

converts  it  to  the  fro*>*line  value  I 

check  :s  false  ; 
screencheck  :  =  true  ; 
temo  0  : 
line  : s  curl ine  i 
t o) i ne  : =  line  l 


begin 

if  not  eoln(inout)  then  begin 
read  (c)  S 
if  c  in  C ' 0 ' • • * 9 • | 
then 


cn 

cn 


begin 

reoeat 

if  eoln  ( Input ) 
t  hen 

check  : =  true  ; 

temp  :=  10  *  temo  ♦  ord  (c)  -  ord  (*0')  l 
nun  : -  temo  • 
if  not  eoln(inout)  then 

read  (c)  S 

until  not  (  c  in  l'0'..'9M)  or  (  check  )  or  (  c  -  ct  ) 
end  • 

i f  (  cheek  )  or  (  c  *  ct  ) 
then 
begin 

line  : =  nun  i 
tol ine  :=  line  l 

end  ; 

temo  ;=  0  ; 

end? 


{  Read*  in  th*  second  nus>it 
and  convert*  it  to  the  o* 
digit  > 


if  not  (check)  and  (  c  *  comma  ) 
then 


beain 

if  C  :  comma 
t  hen 


~1 - - - 


line 


tr 


then 

read  (e)  I 

until  C  eoln(input)  l  or  (  c  *  ct  ) 

end  I 

end; 

if  line  >  toline 
then 
begin 

wri teln(error)  < 

writelnl*  Data  i«  entered  "  fro»line» 

line  :  =  curl ine  » 
errent  : =  errcnt  ♦  l  J 
toline  5s  line  * 

end  ; 

errcnt  :  =  0  ; 
if  line  -  0 
then 

line  :=  curl ine  * 


tol ine" 


end  i 


<  lineget  I 


< 


PROCEDURE  OISHLAYLINE 


PURPOSE :  This  orocerture  diplavs  lines  of  text  from  the  users 

-------  file.  The  user  requests  the  current  line*  a  specific 

line  or  a  group  of  lines  with  a  starting  value  and 
an  endinq  value.  The  input  command  is  <  L  val ue ( * val ue)  >. 

The  number  commands  are  read  by  calling  Lineget  and 
the  actual  tines  are  fetched  and  printed  by  Eetchline. 

This  procedure  is  merely  a  vehicle  for  the  interaction 
of  these  two  procedures. 

VARIABLES:  The  following  variables  are  used: 

---------  linefrom:  from-line  value 

tineto:  to-line  value 

check:  error  detecting  variable 


} 

procedure  displayline  • 
var 

linefrom,  lineto  :  integer  l 
check  :  boolean  ; 

begin 

lineqet  (  linefrom*  lineto,  check  )  * 
if  linefrom  s  0  then  linefrom  :=  1* 
if  textsize  <>  0  then 

fetchline  C  linefrom*  lineto  ) 
else  writelnCO  lines  in  file1)! 
if  eoln(innut)  then  begin 
readln; 
wr i t  e (  1  E>  * )  * 
end! 

end  *  i  displavline  > 


PROCEDURE  SCRfrENLm 


PURPOSE:  Thl$  procedure  displays  ?0  lints  of  tent  to  the  user.  It 

can  be  started  at  the  current  tine  or  at  any  line 
designated  by  the  user.  If  the  request  exceeds  the  tent 
size#  then  the  screen  will  terminate  with  the  lest  line 
line  of  the  test.  The  input  co**and  for  displayline  is 
<  S  value  >•  If  improper  data  values  are  input#  the  checker 
will  print  only  the  current  line  with  the  error  diagnostic 
printed  by  the  Lineqet  procedure. 

Ihe  procedure  calls  the  procedures  Lineget  and 
Fetchline. 


VARIABLES?  The  following  local  variables  are  used: 

linefrow:  f row-line  value 

lineto:  to-line  value 

checker:  boolean  value  Passed  by  Lineget  which 

causes  only  the  current  line  to  print  instead 
of  20  lines.  Done  on  error  only 
Global  variable  used: 

eurline:  current  line 


1 


procedure  screenline  l 


linefrow*  lineto  :  integer  I 
checker  :  boolean  ; 

begin 


lineoet  f  line* row,  lineto#  checker  )  t 
if  line*  row  2  0 
t  hen 

linefron  i*  Ifnefrow  ♦  I  J 
if  linefro*  <=  lineto 
then 

lineto  : -  linefroa  ♦  20  J 


i f  checker  =  false 
t  hen 


<  Error  routine  for  Invalid 
data  in  Lineaat  procedure  > 


heoin 


line  from  t  =  curl  In*  I 
line to  :*  Ifnefroo 

end  i 

if  textsize  <>  0  then 

fetchline  C  Hnefre*>  lineto  ) 
eltt  xpitelnt‘0  lines  in  tile')) 
if  eoln(inout)  then  beqin 
readln; 
writet'O')} 
end; 

end  t  <  screenline  ) 


o 


PROCFDtJRE  APPEND!.  INt 


PURPOSE:  This  orocedure  inserts  lines  into  the  b offer. 

The  parameter  strtiine  is  the  iine  which  the 
inserted  line(s)  is  to  follow.  It  this  line 
is  not  currently  in  the  buffer»  the  contents 
of  the  butter  are  written  out  and  the  buffer 
is  reiiiied  beqininq  with  the  line  strtiine. 
The  oroeedured  then  continues  to  insert  lines 
until  the  end  ot  input  symbol  is  reached. 

If  the  butter  is  filled  during  this  operation 
the  contents  of  the  buffer  are  written  out 
and  the  last  line  inserted  becomes  the  first 
(only)  line  in  the  buffer. 


VARlAm.ES: 

point:  pointer  to  the  line  in  the  buffer  the 
inserted  lines  are  to  follow 
eooint:  pointer  to  the  line  immediately  following 
the  lines  inserted 

but  line:  counter  to  keep  track  ot  the  line  number 
which  point  is  pointing  to 


procedure  aopendline  (tar  strtiine  :  Integer); 
type  pointer  s  •i..bufsite; 

var  text  :  packed  array  tt..Hnesfze)  of  char) 
point.enoint  :  Pointer; 
done  :  boolean; 
i  :  1..1inesireS 
bufiine  :  integer, 
inoch  ■:  char) 

begin 

(test  if  inserted  lines  are  to  be  placed  before  the  first  line 
of  text.  If  so»  Dointer  is  nil!.  If  the  file  is  emotv  the 
first  inserted  line  becomes  the  first  line  of  text  and  the 
buffer  status  is  undated  ) 
if  st rt 1 ina  -  0 
then  heain 

if  head. f i rst I ine  >  I 
then  begin 

wri tebuf I 


readbuf ( I  ) 


end) 

if  head. f i rat  I ine  =  0 

then  begin  head.pt r  :=  nil)) 

head.f irst I ine  : =  I; 

end; 

eooint  :=  head.ptr) 
point  :=  ni II  ; 

end 


(find  the  start  line  in  the  buffer) 
else  beain 

if  head. f i rat  1 ine  >  strtline 
then  begin 

wri tebuf ) 

readbuf (strt line); 
point  ! =  head.otr; 

end 

else  begin 
point  : =  head.Ptr; 
bufline  l -  head. f 1 rst I i nel 
while  bufline  <  strtline  do 
heoin 

point  : -  buf f (point) .nest I ine) 

(if  start  line  not  in  file*  get  start  line) 
N  if  point  »  nil) 

then  heqin 
wri tebuf ; 

readbuf (strtline); 
point  :s  head.ptr) 
bufline  : *  strtline; 
end 

else  begin 

bufline  !*  bufline  +  l; 
end; 

end; 

end; 

(after  the  start  line  is  found*  set  epoint  to 
the  next  line) 

if  buf f (point) .nextl ine  <>  nill  then 
epoint  buf f (oointl .nextl ine 
else  epoint  ?s  nill; 


end) 

done  s -  false) 


e 


(reai  inserted  text  lines  until  the  line  contain* 
the  end  of  inout  symbol  (•)•  ' 

while  not  done  do 
heoin 
l  :  =  l: 

it  not  eoln(input)  then 
read! I  noth  1 
else  inpch  :=  *  ’» 
text  111  t=  inpch) 

if  inoch  a  *.*  (check  for  end  of  incut) 

then  beoin 

if  not  eolnl input ) 
then  beqin 
read! i noch ) ; 
i  :=  i  ♦  1  * 
text  (i 1  f  =  inoch; 
enol 


(end  of  input,  link  epoint  line  to 
last  inserted  line! 


-4 

U> 


if  (i  a  1)  or  (inpch  *  Ct) 
then  bepin 

if  ooint  <>  nil  I 
then  beqin 

buff (point) .nextl ine  :»  eooint 
end) 

done  *a  true) 

end) 

end; 


(write  text  line  into  buffer) 


i f  not  done 

then  beqin 

texts!**  :*  textsiie  ♦  1) 

while  not  eoln( inout)  and  (inoch  <>  ct) 
andli  <  lines!**)  do 

heoin 

i  sa  (  ♦  i; 
read! inoch); 
text!!!  f =  inpch) 
end) 

if  coin  (inout) 
then  benin 


t 


readlnl 
ufitM  •!>•»# 
ta»t li  ♦  I)  I*  ct I 
end; 

(I*  no  free  Hnes  available,  write  out 
contents  of  buffer) 


I  f  free  :  nil) 

then  begin  | 

if  point  <>  nil!  then 

buff (point) .next  I ine  ;=  epotnt) 
wri tebuf > 

reedbu  f ( st  rt line); 

point  : =  buff (head.pt r) .next  line; 

anoint  : =  buff (point) .next ) ine; 

end; 

if  point  o  nitl 

then  buff (point ) .next I ine  :*  free 
else  head.ptr  : =  free; 
point  s  =  free; 
strtline  ! =  strtline  i  t; 
free  ■ -  buf f If  reel .next  I ine» 
buff (point) . I inestring  :*  text; 

(update  current  line) 
curline  i =  curline  ♦  I; 

end; 

■**  end; 

end  ;  (  append  I ine  )  1 


I 


i 


PROCEDURE  REPLACE LINE 


PURPOSE:  This  procedure  serves  two  purposes.  First  It  deletes 

all  lines  between  the  parameters  strtline  and 
endline  (inclusive),  Next  procedure  calls 
procedure  annendline  allowing  the  user  to  add 
any  lines  in  place  of  the  deleted  ones. 

If  the  lines  to  be  deleted  are  not  currently  in 
the  buffer*  the  buffer  is  written  out  and  the 
first  line  to  be  deleted  becomes  th.e  first  line  of 
the  buffer. 

VARIABLES: 

point:  points  to  the  first  line  to  be  deleted 
eooint:  points  to  the  line  after  the  last  line  to 
be  deleted 

bufline:  the  line  to  which  ooint  is  pointing 
•••••*******« ***•»*»»*«*«»»»«***•****»***«*«**••**«*************) 


procedure  repl acel inefvar  strtline*  endline  :  integer); 
<J{  type  pointer  s  -l..bufsize; 


var  ooint, enoint  :  pointer; 
bufline  :  integer? 
temp  :  inteqer? 

begin 

(find  startline  in  buffer.  If  not  in  buffer  write  contents  of 
buffer  to  output  file  end  input  40  lines  beginning  with  startline.) 

if  head.f irst I ine  »  strtline 
then  begin 

writehuf ? 

readbuf (strtl ine)* 
point  : =  head.otrl 
end 

else  begin 

point  : =  head.otr* 
bufline  : =  head. f i rst I ine t 


while  bufline  <  strtline  -I  do 


begin 

point  is  huff (point) .nextl inel 
if  hufline  <  textsize  then 
i f  point  a  ni I  1  then 
beoin 
wr  i tebuf i 

reaobuf (strtline); 
point  i*  heart. ot rS 
buftine  : -  strtline; 

•nrt 

else  begin 

hufline  : =  bufline  ♦  l> 

•  nrt? 

end; 

'  endl 

< 

determine  which  lines  are  to  be  replace  and  link  these  lines  to  the 
free  list.  If  no  new  lines  are  to  be  added#  reconnect  the  lines 
in  the  buffer  without  the  deleted  lines.  CI.e.  connect  strtline  •  1 
to  endline).  If  new  lines  are  to  he  added#  replace  the  startline 
with  the  first  new  line  and  append  any  following  lines  to  it#  then 
reconnect  the  following  lines  heqinnina  with  endline. 

) 


eooint  :s  point#  {find  the  endline) 

for  bufline  t  =  strtline  -I  to  (endline  -l)  do 
begin 

ctv  eooint  :s  buf f (epoint) .next  I ine# 

if  bufline  <  textsize  then 
it  eooint  a  nill 
then  beoin 

buf f (point  I .next  I ine  :*  nill# 

writehuf ; 

readbuf (buf 1 ine)# 

point  :=  0# 

eooint  :  =  head.ptr# 

end# 

end) 

(update  the  textsize  and  buffer  status  record) 

textsize  :=  textsize  -  (endline  ■  strtline  )  “I; 
teno  : =  buf f Coointl .next  line; 

buf f (point  I .next  I ine  :=  buf f (epoi nt ) .nex 1 1 ine; 

buf f (eooint I .next  I ine  :  =  free; 

tree  :  -  teen# 

strtline  ■ -  strtline  -i; 

append line (strtline) 


end  ; 


I  reo I  aceline  I 


« 


PKOCFDUKE  SIRINGOISP 


PURPOSE:  This  procedure  searches  the  test  between  the  parameters 

st rt line  and  endline  for  any  lines  containing  an 
occurence  of  the  string  <nattern>.  If  the  string 
is  found,  the  line  containing  it  is  displayed  by 
calling  procedure  fetchline. 

the  procedure  first  computes  the  next  table  to 
implement  the  Knuth,  Morris,  Pratt  string  search 
algorithm,  this  table  is  then  used  in  determining 
how  far  to  move  the  pattern  along  the  line  of  text 
in  the  event  of  a  non-match. 


VARIABLES: 

next  :  next  table 

ooint:  Pointer  to  the  textline  currently  beinq 
evaluated. 

oatlenoth:  the  length  of  the  pattern 

****•«*•*« **************  A**************************** ***************) 


procedure  st rinqdi spfvar  strt I ine, endl ine  :  integer)  var 
pattern:  natstrino)  var  oatlenqth:integer); 

type  pointer  a  -l..bufsize) 


i,  J*  bufline  :  integer  ; 
next  j  array  U..)inesize)  of  integer) 
point  :  Pointer; 

text  :  packed  array U .. lines! ze)  of  char) 
done  :  boolean) 


begin 

fcomoute  next  table  for  string  matchino  procedure  > 
i  :=  o; 

next  111  :=  Of 
j  :=  I) 

while  i  <  oatlength  do 
begin 

done  :*  false) 


rtBMt 

I*  i  »  0  then 

if  patternMI  «»  pattern! j) 
then  (  js  nest  Ml 
else  -lone  :s  true  I 
until  (I  <  =  01  nr  done! 
i  :=  I  ♦  II 
I  i*  I  '  li 

it  netternlll  =  pattern  Ml 
then  nestljl  is  nest (II 
el se  nest  I j I  :«  i i 

end! 


if  head.f irst I ine  >  strtlinc 
then  begin 

wri tebuf  S 

readbuf (*t rt I inel I 
Point  is  head.ntrl 

end 

else  begin 

point  i«  head.otrl 
Outline  !=  head. f i rs* I inel 
while  bufline  <strtline  do 
beqln 

point  but t tpointl -neat line; 

tit  line  is  not  in  buffer#  write  out  buffer 
and  read  In  current  I inel 

if  point  a  nil  I 
then  beain 

writebuf J 

readbuf (st rt I ine 1 1 
point  I*  head.otrl 
bufline  is  strtlinei 

end 

else  heoin 

bufline  is  bufline  t  II 

end! 

end  I 

end! 

while  bufline  «*  enoline  do 
heoin 

test  I*  but  Ipointl .1 Inestringl 


<  find  strtline  In  the  buffer  I 


<beqin  pattern  matching) 


while  Ci  <=  oatlenqth)  and(j  <*  linesite) 
and  (text(j)  <>  ct)  do 
beqin 

if  patternli)  s  text  (II 
than  beqin 

i  :*  i  ♦  If 

j  ss  j  ♦  t;  {keep  matching) 

end 

(match  not  found 
advance  pattern 
as  determined  by 
next  table) 

else  begin 

i f  next  (i )  >0 

then  i  : =  next(i) 
el*e  beqin 

i  :=  t; 

}:=)♦)) 

end? 

end# 

end; 

(pattern  matches) 

if  i>  patlength  then  f etch  I i ne(buf I i ne»buf I i ne) S 
point  : =  buf f (point  1 .next  I inef 
bufline  !s  bufline  ♦  If 
if  bufline  <  endline  then 
i f  point  *  ni 1  I 

then  begin 

writebuff 
reaghuf (bufline); 
point  : =  head.ptr) 

end; 

end; 

end  I  <  Stringdiso  ) 


I 


PROCEDURE  SIRINGREPL 


PURPOSE:  This  procedure  searches  the  user's  tent  file  between 

the  parameters  strtline  and  endline  tor  anv  occurences 
of  the  string  <pattern>.  If  <oattern>  is  found  in  a 
line*  it  is  replaced  by  the  string  <strinq>  and  the 
resulting  line  is  displayed.  Ihe  procedure  uses 
the  Knuth*  Morris*  Pratt  algorithm  to  match  the 
pattern  in  the  line.  The  nett  table  is  first 
computed.  This  table  is  then  used  in  computing 
how  far  to  move  the  oat  tern  along  the  text  line 
in  event  of  a  non-match. 


VARIABLES:  oat  length: 

St  r  I  engt h : 
text : 
next : 
point: 


length  of  the  string  <pattern> 
length  of  the  new  string  <string> 
a  line  buffer  for  the  current  line 
next  taole 

pointer  to  the  current  line 


. . . 

procedure  stringreol  (var  strtline*  endline  :  integer* 
var  pattern*  string  :  patstrinq* 
var  oat.lenoth*  strlength  :  integer)* 

§ 


type  pointer  a  -l..bufsize* 
var 

i * j * k*m, temp* t e»P?  :  integer* 
but  I ine  :  integer; 

next  :  array ( 1 .. 1 inesi zel  of  inteoer* 
point  :  pointer; 

text  :  packed  array  It .. I inesi zel  of  char* 
found  :  boolean; 
done  :  boolean; 


begin 

i  :  s  0  ; 
j  :=  t; 
next(l)  :s  0; 
while  j  <  oatlenoth  do 
begin 

done  false; 
repeat 


compute  next  table  > 


if  i. Altern  lil  <>  natternljl  then  i  :  =  nextli) 
,  olqt-  'lone  t=  truci 

until  ( i  <=  U )  or  none; 
i  : =  i  t  ti 
j  :  *  i  ♦  t  * 

if  patternlil  =  patternljl 

then  nextljl  5=  ne«t  lil 
else  nex  t  ( j I  !=  i  « 

end/ 


i  find  start  line  in  buffer  ) 

if  head. f i rst I i ne  >  strtline 
then  begin 
wr i t ehuf 1 

readhuf (strtline); 
point  I -  head.ptr; 
end 

else  begin 

point  !=  head . f i r s t 1 i ne « 
while  outline  «  strtline  do 
begin 

point  5=  buf f  looi nt 1 .ne* 1 1 i ne# 
i f  point  a  ni I  I 
then  begin 
wr i tebuf ; 

readbuf ( st rt I ine) » 
point  ;=  head.ptr# 
bufline  :  =  strtline# 
end 

else  beqin 

bufline  bufline  *  t# 
end 
end# 
end; 

(  try  to  watch  pattern  in  text  line  > 


while  Outline  <=  endline  do 
begin 

found  : -  false# 

text  :  =  but f (ooint ) . 1 ines t r i nq# 
i  :=  1 ; 
j  :=  l; 
temo  i-  1# 
t emoi  : =  I # 

while  («  <=  patlenoth)  and  (}  <=  linesite) 


and  (text  t) 1  <>  do 

beoom 

If  pattern**1  ~  texttji 
then  beain 

»  •*  *  *  ' '  (keep  watching) 

begin  ••'cM 

i  f  next  til  *  ® 

then  i  J=  nexttiJ 
else  begin 
i  :=  1J 
|  !*  i  t  II 
end* 

end» 

(oattern  match  found-repl ace  pattern 
string) 


j  f  i  >  pat  I enqt  h 
then  begin 

liri <j  -  ‘-O'**"  •  "> " 

teen  5=  temp  *  l’ 
end; 

-  pat  length)  to  ((J  -  P«tlenoth)r 

#°r  (strlenqth  -  D)  rfo 

temp  temp  ♦  15 

end* 

tempi?  i' 

end!  5’*  (con*  Inoe  to  search  for  pattern) 

end; 

If  found  then  begtn 

^  ir/t^remP^o'uemo  t  tj  -  <° 

beuin  , 

II  k  <  llneslte  then  b _  r  (ml  1 

buf f Ipointl .llneatrtngfk)  text! 

m  :  =  m  ♦  I  * 
end; 


(display  new  line  I 


end; 


fetch I i n*(hu ( I i ne»  bu  f I ine) f 
end; 

point  :=  buff (point) .next  I ine« 
bufline  :=  bufline  ♦  1; 
if  bufline  <  endline 
then  if  point  =  nil! 
then  begin 
writ  ebuf ; 
readbuf (bufline); 
onint  head.ptr) 
end; 

end; 

(strinoreo) ) 


\ 


< 


PROCEDURE  APPENDCOM 


PURPOSE:  This  procedure  computes  the  Stert  line  for 

the  insert  procedure  ( aooendt i ne ) •  If  the 
line  number  is  defaulted'  the  current  line  is 
used#  If  the  line  number  exceeds  the  number  of 
lines  in  the  text'  or  is  otherwise  invalid'  an 
appropriate  error  message  is  returned* 


VARIABLES: 

lineno  •  start  line  for  text  insertion 
inv  :  true  if  invalid  command 


> 


procedure  anpendcomJ 

var  com:  char# 

I i neno  :  i nt eaer } 
inv  :  boolean: 

begin 

I ineno  :=  0; 
com  :=  •  *; 

inv  :=  false: 

if  eoln(inout)  or  (com  *  ct)  then  if  textsize  >  0 
then  tineno  :=  curline: 
while  not  eoln(input)  and  (com  <>  ct)  do 
heoi  n 
readCcom) ; 

if  not  (com  in  (('O'. .*9’)  ♦  (ctll) 

then  begin  (compute  line  number) 

if  not  eoln(inout)  then  repeat  read(com)  until  eoln(input): 

wr i t  e I n ( er rmsa )  : 

errcnt  :=  errcnt  t  If 

inv  :=  true; 

end 

else  if  com  <>  ct  then 

lineno  :  =  (10  *  lineno)  t(ord(com)  -  ord('O')); 

end; 

i f  not  i nv  then 

if  (textsize  <  lineno) 
then  beain 

writelnf textsize:!' '  lines  in  file')) 

if  not  eoln(input)  then  repeat  read(com)  until  eoln(input); 
end 


arise  heain 
if  eotn(input) 

then  heoin 
readlnj 

»ri te<  * 1> ' ) » 
enii: 

append  1 ineil ineno)! 

errcnt  :=  0* 

eno; 


if  eol n ( i nout ) 
then  beoin 
read) n! 

writei *E>* )# 
end# 

curl ine  :  =  I ineno# 
end? 


ieopendcom) 


HRlirf'l-Ph  KFPI  C0*» 


PUPPnsf ;  This  ororedure  e?*f>utes  the  start  Tine  and 

end  line  for  the  li nr  delete  proredure  ( ren I ace 1 1 ne) . 
If  the  line  nu*n»r  is  defaulted,  the  current  line 
is  deleted.  If  the  end  line  is  not  specified,  the 
startline  is  deleted.  If  an  invalid  line  number  is 
innuted,  and  error  m»ssaoe  is  returned.  If  the 
start  line  or  end  line  is  Greater  than  the  text  sire 
tn«  last  text  line  is  deleted. 

VAPIABltS: 

I i nest 
I i nenn 
I  nv 

•ft********,************,**************************************) 


start  line  for  deletion 
end  line  for  deletion 

true  if  invalid  line  number  is  inputed 


procedure  renlcnir? 
var 

com:  char; 
first  :  ‘•'on I ean ; 
lines!,  linena  :  inteqer* 
inv  :  boolean; 

beof  n 

inv  : -  false; 
linest  :=  3; 

I  inend  :=  os 
first  :=  true; 
com  : s  •  ’ ; 

ehile  not  eoln(innut)  and  (com  <>  ct)  do 
beni  n 
re  titles*) ; 

if  not  I  com  in  t  r.'.etUT 

then  br-iin 

if  not  eoln(innut)  then  repeat  read(com)  until  eoln(innut); 
»ril»l"(»rri»*o); 
errent  js  errent  t  If 
i -v  t -  t ru»; 

*»  r ,  •  • 

,  U,  if  r e < >  c t 

then  if  t i rs*  (compute  start  line) 
t  hen  i f  com  -  ’, 1 

then  <  i  r  S  t  := 


false 


i  f 


else  ijnrst  :=  (10»linest)  ♦  (ord(com) 
orrtCO')) 
else  if  com  =  *  »  * 

♦hen  heoin 

if  not  eolnf input)  then  repeat 
readf com )  ont il  col n ( i nput ) ? 
writeln(errmsn)# 
errcnt  • -  errent  ♦  I! 
inv  :=  true# 

end  {compute  end  tine  I 

else  linend  :  =  flO*tinend)  ♦  (ord(eom) 
-  oHl'#'))! 


end# 

if  not  inv  then  heain 

if  1 i nest  =  0  then  linest  !=  curline#  {start  Hne  becomes 

current  line) 

if  first  -  true  then  linend  :  =  linest) 
if  (textsize  <  linest)  or  (textsize  <  linend) 
or  (linend  <  linest) 
then  tienin 

writeln(textsize:l#  '  lines  in  file*)# 


end 

else  ben in 

if  en'n(innut)  and  (textsize  >  0) 
then  beain 
readln; 
we i f e (*)>') • 
end# 

i f  textsize  >  0  then 

rent  ace! ine( l inest#l inend) 
else  writelnt'O  lines  in  file’)) 
end) 


end) 

eol n( inout 1 
then  henin 

readln} 

.nteCO’)! 


t";!i 

Curline  I”  linest? 


end  } 


i  reolcon  I 


PROCFDURF  DI3PCOM 


PURPOSE:  This  procedure  computes  the  start  line*  end  line 

end  pattern  tor  the  strinq  search  procedure  (stringdiao) 
It  the  line  number  is  defaulted,  all  lines  in  the 
'  user's  file  are  searched.  If  the  Pattern  string  is 

defaulted*  the  nrocedure  prompts  the  user.  I f  an 
invalid  line  number  is  entered*  an  error  message  is 
returned.  The  procedure  also  computes  the  lenqth 
o*  tne  pattern  strinq. 

VARIABLES: 

I inest  :  start  line 
1 i nend  :  end  line 
string  :  pattern  to  be  matched 
stsire  :  lenoth  of  the  pattern 
. . . 

procedure  di scene: 

var 

com  5  char* 

linest*  linend*  suite  :  integer: 
strinq  :  patsteina* 
first,  s>D  :  boolean* 
inv  :  boolean; 

beoi  n 

linest  : -  u; 
inv  :=  fals**; 

I i nend  : -  a ; 
com  : -  '  • ; 

»tsi/e  :*  d; 
first  :=  true? 
stg  ;s  false; 

while  n»t  eoln  finout)  and  fcom  <>  ct)  do 
beoi  n 
re»  l(C"|ii I* 
i I  not  st  a 

then  it  com  =  c t 
then  begin 
sin  : -  true* 
r»»  : =  •  •; 

»(!'■ 

»l«f  i*  not  (Com  in  f  I  •  0  •..•«»•  I  ♦  I', *1)1 
then  beoin 

it  not  eolniinputl  then  repeat  readfcoml 


until  «»o  l  n  (  i  nnut  )  S 
ki'itelnfermso)! 

»ppf nt  : -  epppnt  ♦  I; 

inv  : =  true# 

end 

else  it  first  Icoenute  start  line  1 

tKen  if  com  s  *,*  then  first  i-  false 
else  1 i nest  :=  (|0*linest)  t (ord(com )-ord( • 0  * ) ) 

•  1 se  if  to*  -  • f  ‘ 
then  hen in 

if  not  eolnfinput)  then  repeat  read(com) 
until  en|n(innut)J 
wrifelnfermso); 
errcnt  : -  er pent  ♦  I; 
inv  :=  true* 

end  (compute  enrl  line! 

else  linenri  :  -  (lh*tinend)  ♦ 

<  nrrtf  com  )~nrri(  1  U  ’  )  ) 
else  if  com  <>  r t 

then  fcnenute  pattern  strinq  and  strinq  lenqth)  beqin 

stsiie  : =  st  s i te  ♦  I ; 

co  st r i nn  1st  si  ret  :  =  com. 

to 

end? 

end? 

if  not  inv  th*.n  honin 

if  stsi;»  =  0 

then  (it  no  strinq  prompt  user)  beqin 
«pife( ’  st  r  i  no?> * ) l 

cnir  ;?  •  1  ; 

i*  point  input)  then  readln; 
whi|P  not  eo)n(input)  and  (com  <>  ct)  do 
(eqin 
pp.TlIror); 
i  f  po*  <>  ct 
|ppp  pen in 

stsire  : -  st  s  i  ze  t  1; 
s t r i no (st s i /el  : -  com; 
end; 

end; 

end; 

(check  for  line  defaults  and  set  tn  current  line.  If  line  is 
oreater  tr»n  te»t  si7e.  «e*  to  last  line  o*  text! 

if  I i nns*  =  0 

fPn'i  t  no  i  n 

!»"••••-(  ;  r  i ; 

lint"  i  *eyfsi7e* 

»ifi  i 

else  if  first 


/ 


then  lln«nH  :s  llntsr; 

H  Mn»nd  >  te«tsire  then  llnend  : =  tentsitei 
if  I in*st  >  then  finest  !=  textsi/e? 

if  (tinend  <  linear) 
then  ten  in 

if  net  enin(inout)  then  reneat  read(eom) 
until  eoln(inout)< 
writeln(erresq); 
errcnt  : =  errcnt  ♦  ); 
end 

else  if  textsire  >  0  then  henin 

st  r  inoifi  and  i  nest » 1  i  nenrl,  st  r  i  ng,  st  si  *e)  ! 

errcnt  t=  0; 

enu 

else  writelnf'O  lines  in  file')) 

end* 

if  eolnf input)  then  heoin 
readl n; 
wr i t  e ( ' E> *  )  » 
end; 

curl ine  :  =  I inenu# 


end  > 


f  dispco"  I 


PROCEDURE  SIRtPCOM 


PUPPOSF :  This  procedure  cnvo utes  the  start  line#  end  line# 

pattern  string#  and  new  string  to  he  inserted 
♦or  the  string  replace  ororedure  ( St r i nqrepl l . 

If  tt>e  line  nusiher  is  detaulted#  the  current  line 
is  used.  If  nn  end  line  is  specified,  the  start 
I  me  is  used.  If  the  new  string  or  pattern  string 
is  defaulted#  tn#  user  is  nromnted.  if  an  invalid 
line  number  is  entered,  an  error  message  is  returned. 

VARIABLES: 

I i nest  :  s  t  ar t | i ne 
I i nenP  :  endl i ne 

cldstrino  ;  pattern  string  to  be  replaced 
newstring  :  new  string  to  be  inserted 
olostsire  :  pattern  strinq  lenqth 
newstsite  :  new  string  length 

. . . . . . . 


procedure  Strepcd*# 
var 

roe  J  rtnri 

linest.  linenl#  nldstsi/e,  newstsi/e  :  integer# 

gl<lstring  :  pjtstrinj! 

first#  ol'istn,  newstg  :  boolean# 

news trine  t  natstrinnJ 

ifiV  :  hoele.in# 

oeui  n 

i ny  :  s  false# 

I  i  nest  :  -  ii  J 

linen)  ;=  OS 

co*  : s  '  ' # 

o'  1st  s  i  re  i-  (l# 
news t  s i re  :  =  n# 
n»#<io  :  -  fils.*# 
first  :=  »rri#s 

iS  S  I  S  '  *  !  S  t  i  I  «:  • '  S 

while  nni  en  1  n  f  i  npii  |  )  and  f  c  ntr.  <>  rtl  do 

h*'lin 

rea.if  C"-'; 


if  not  o '  (Is  t  o 

then  if  com  -  ct  (compute  start#  end  line) 
then  heain 
oldstn  :=  true? 
com  :  =  •  • ; 

end 

else  if  not  (com  in  (l'0'..,9'|  ♦  t  * »  *  I J  > 
then  heain 

if  not  eolnfinput)  then  repeat  read(com) 
until  enln( input)# 
writelnferrmsu); 
errcn*  :=  errent  ♦  1# 
inw  :  =  true! 
end 

else  if  first  (compute  start  line) 
then  if  com  =  then  first  :  =  false 

else  linest  : =  ( 1 0* 1 i nest )+ Cord (com) -ord( ' 0 ') ) 
else  if  com  =  ‘ , 1 
then  heain 

if  not  eoln( input)  then  repeat  read(com) 
until  eolnf input)/ 
wri reln(errmso) 1 
errent  :  =  errent  ♦  I# 
inv  :=  true* 

end  (compute  end  line  ) 

else  linend  :=  (lOHinend)  ♦ 
(ord(com)-ord( '0* ) ) 

els*  if  not  ne„sto  (innut  Pattern  string) 
then  i f  com  <>  ct 
then  henin 

olutsite  :  =  oldstsize  ♦  I# 
ol  1st r i ng fol dst s i rel  S=  com# 
end 

e • se  heni n 
news  to  : s  true# 
com  : -  '  ' } 

end 

•Iso  if  cot  <>  ct  (innut  new  string) 

(ten  heoin 

m*«st«ire  : "  newstsize  ♦  I# 
news t r i ng (news t s i re!  !=  com# 
end; 


end; 

n,i'  i  nv  f  MPM  (  r>  .1  I  II 

it  i)  uki  #  * »  it'  III  "ii  ti.ti  »i*rn  prompt  user! 
»  n«n  '-n  ti  n 

if  "O I  n  (  i  or>ij  t  )  then  ri>J<<ln! 

«rit»('ol  Istrioi?*'); 


W!  • 


con  t  S  *  *  S 

while  not  eoln(inout)  and  (con  <>  ct)  do 
hen  i  n 
read  ( com I ; 
i  <  c"'  <>  c  t 
t  hen  b»o  i  n 

oMst?ite  :  =  oldstsize  +  l; 
oi is t p i no lol ds t s i zel  t=  com; 
en.t;  , 

end; 
enct; 

if  newsfsi/e  =  0  (if  no  new  strino  oromot  user) 

t  hen  he  Cl  i  n 

if  eoln(inogt)  then  reartln; 

*rife('nenstrino?>'); 
com  :  -  1  •; 

while  nnt  eoln(innut)  and  (com  <>  ct)  do 
hen  i  n 
r»fldlcon) * 
i f  com  <>  C  t 
thpn  berfin 

n»wstsi?e  :  =  newstsize  ♦  If 
newst rinq(newstsize1  :  =  corn; 
end; 
end; 
end; 

(check  for  line  defaults  and  set  default  values.  Tf  line  number 
is  larqer  than  tent  size,  set  line  number  to  the  last  line 
of  tent • l 

if  linest  -  d  then  linest  :  =  curl ine! 
it  first 

then  linen-i  ;s  linest’ 

if  linest  >  textsize  then  linest  :  -  teatsizef 
if  linend  »  textsize  then  linend  :  =  textsize; 
if  (linend  <  I i nes  t  ) 
then  p  e  n  i  n 

if  nnt  mint  input)  then  reoeat  read(com) 

until  eo  I  ii  (  i  nout  I  ! 

wri teln(errmSd); 

errcnt  : -  errcnt  ♦  IS 

»n  f 

else  if  teatsi/e  >  0  then  beqin 

strinorepltlinest.li nend»  o Ms  t  r  i  nq» 
news  t  r  inci.ol  ds  t  s  I  zet newst  s  i  ze) ; 
errcnt  :=  0; 
end 


vo 

co 


else  writeln( ' 

end! 

curl  i  <->e  -  -  I  inendi 
if  eoln(inout)  then  henin 
ruai 1 n * 
write! *F>'); 
enji 


end  > 


{  streoco'  1 
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PROCFIMWF  GETFTLF 


PURP03F :  This  procedure  inouta  the  user’s  file  name.  The  8LEI) 

directory  is  then  searched  for  that  file  name.  If 
the  fife  na««  is  found,  the  file  is  opened  and  textsize 
is  set  to  the  number  of  lines  in  the  file.  If  the 
file  on*  is  not  found,  a  new  file  is  created  and  the 
file  ns**  is  entered  in  the  directory.'  The  file 
<directory>  is  an  exoltcit  UNIX  file  which  contains  the 
current  SlEI)  directory.  The  file  <te*pd>  is  a  scratch 
file  which  is  created  durinq  execution  as  UNIX  file 
tan. I.  The  contents  of  the  directory  are  read  to  the 
scratch  file  durino  the  directory  search  (less  the  file 
to  be  ooened.  if  found!.  This  scratch  file  is  then 
re*ci  to  toe  directory  with  the  undated  nuaher  of  text 
lines  for  th»  rurr«nf ly  opened  file  in  procedure  close. 


VARIABLES: 

directory  j 

teand  : 
tna-e  : 
textsit*  : 


St  fc'0  directory  file.  Ihe  fnraat  for  the  file 
ts  <text  site*  <file  na*e>. 
scratch  file 

user's  UNIX  file  na«e  to  be  opened 
■vither  of  lines  in  the  file 


I 


procedure  jetfile* 

var  ch  :  cnsrl 

found  :  boolean. 

index,  j.  k.  i  :  integer  I 

oejin 
ch  JS  •  *1 

textsize  :*  01 
i  o  de  «  :  •  *» ; 

fmout  the  user  file  newel 

for  i  ”  t  »o  newest t»  do 
fnawelil  : s  •  •; 
i  :*  h; 


r 

r 


wh i I •  not  eoln(inout)  and  (eh  «*  ctl  do 
hen  4  n 

reoeat  read(eh)  unHI  (ch  *>  ’  ')  or  eoln(inout)) 
i  *  cn  =  ct 
then 

i  : =  *  1 

el  3*  hen in 
i  :s  I  ♦  I! 

if  <  < :  namesize  then  fnemeli)  I*  ch( 
end? 

end! 

(search  tor  the  user  file  (name  in  the  directory) 

if  (name  *>  '  '  then  begin 

reset (di rectory) i 
found  : -  false! 
i  s*  IS 

while  not  eo< (di rectory )  end  not  found  do 
be-iin 

textaize  :=  hf 

(if  the  file  is  found,  comoute  textsize) 
repeat 

read(di rectory, ch) J 
if  cn  in  l,o,..,9*l  then 

textsize  :*  ( I0*t ext  si ze)  ♦  ord(ch)-ord(*0,)i 

until  ch  *  *  *  S 

I  :=  is 

while  i  <s  namesize  do 
beoin 

reatfoirrctory,ch)» 
if  fnamelil  <>  ch 
tn*n  nedin 
i  :=  names  ire  ♦  2l 
index  s -  index  ♦  If 
end 

•Ise  I  l*  I  ♦  If 

«ndj 


if  i  s  names ire  tl  then  found  I*  true 
else,  if  not  eof (directory )  then 
reedlnfdi rectory)) 

enli 

if  i  *  namesire  t  l 
then  h«.*nin 

>ri telnftextsi ze  SI,'  lines  in  file  ',tne«e)l 
reset (di rectory) » 


~ - ‘ - * - 


rewr* t  e(  f e^Dd)  J 
for  i  :=  1  t«  inde*  do 
beai  o 

(write  the  conteiti  of  the  directory,  minus  the 
tile  just  noen«d  to  the  scratch  filet 

reoeat 

readfdi  rectory, ch)  ) 
wri  tr(te*od,ch); 
until  eolnfdi rectory) J 
read! n tdi rec  t  ory ) t 
writelnfreond)) 

end?  V 

reoeat 

readfdi rectory, Ch)  until  eolnfdi rectory)} 
read I nfdi rectory) } 
while  not  enf (di rectory)  do 
hen  in 

while  not  eolnfdirectory)  do 
beoin 

readfdi rectory ,ch) ) 
wri te(te*od,ch)} 
end} 

read! n( directory)} 
wri telnfteeod); 
end? 
k  :=  II 

if  tewtsire  >  0  then 

(read  the  first  «0  lines  of  test  into  the  buffer) 

reedbuf fkll 

end 

else  beoin 

writelnf t-creat ina  file  * , f none, I ) 
texts!/*  s*  Of 
r»wri ref temod)) 
reset (directory)) 
while  not  rot fdi rectory)  do. 
be^in 

while  hot  eolnfdi rectory  I  do 
bent  n 

readfdi rectory ,ch )  I 
wr It  et  t  e*pd,ch ) ; 

end} 

re  sol  of  til  rectory)) 
writelnf  temort)} 
end) 

rewr  i  t  e  f  a. f  i  I  • ,  f  name )  ) 


"  d' 

v.%. 


tf 


~  -ym-  ...»  -=**•*■# 


'J  ■  /JKiib  : ’*  ■  .. 


1  J-  ■  ■-  VwV 

”  -i;  >*■ 

•  •  -.'W- 


V  V>  •"  ‘ '  ~  ‘  «  *v"-:  -  • 


•  ‘A'vr^'f'  ■  ■'<v^  rhvii'sf  ..  jwr-. 


tn*  huH*i<  status  recorrt  and  (r*a  MtO 

heao.pt  r  :  -  nHII 
heart.  Hret  line  :*  0 » 
free  :*  If 

♦  or  I  s*  I  to  buf*f*e  •  t<  rtO 
but ♦  III. •»♦*«♦  1  i«e  S*  j  ♦  If 

:*  oini 

enrtf 

♦  I1enp»r»  S'*  true! 
eort 

•  Me  t>ealr» 

aritelnf ‘-Incorrect  file  «•••*' 

enrtf 

end  f  I  oetflle  I 


PROCFDHRF  CLOSF 


PURPOSf:  This  procedure  closes  *  previously  opened  test 
Hie.  the  contents  ot  the  scratch  Hie  <tenpd> 
ere  read  i«to  the  ^LFO  directory  <directory> 

The  test  site  ot  the  or>en  file  end  the  file 
,  n*ne  are  then  entered  as  the  last  line  of  the 

directory. 

VARI MLES  l 

%  direct nrv  S  SLFO  Hie  directory 

tetod  s  scratch  file 

♦  name  :  currently  ooen  file  nane 

textsire  :  nu»b»r  of  lines  in  currently  ooen  file 
I  dioit  :  character  representation  of  inteaer  textsire 


S 


procedure  close! 

var  ch  !  char! 

diait.  i«  j  :  inteaer! 

mini  tier  l  array  il.. SI  of  Chari 


Oejin 


for  I  :*  I  to  S  do 

nusuerljl  :  =‘  •  | 
eritelM '-closlno  flit 
i  : »  5! 


>1 


♦convert  i « t • n«r  textsia*  »o  ASCII  representation) 

if  textsire  s  0  then  nueperljl  I*  'O'l 
■ehile  tax* site  «»  V  *dn 
htsin 

dinit  ii  t*xtsi<»  nod  101 
dioit  I «  dioit  tordf'O'l!! 
textsire  !>  textsire  div  H*l 
ch  ? s  chr idi ni t ) j 
surlier  Ijl  js  ch} 

»  i»  i  -n 
•  nd! 

♦  insert  *e«t  dii'*  in»o  scrstrh  file) 

♦or  I  is  |  to  S  do 


--  ■  -  '«■<.  .  ..  v’'-  ■ 


rA 


■■  ■■  -  '  s'-'7  j  *  ■*  /'  J“'*  ' 


s 


if  nurherlil  <*  *  •  then 
-Pi r#( t  e»nrt,nu»h»r 1 1 ) >  y 
erlt*(te«Hi  *  *  1 1 

(intent  file  n**»  into  ire* tch  Mini 

foe  i  :*  l  to  niaeiiH  oo 
efitt(tr»n4(|i)|*«ni  )y 
-Pi  te|nitt*D<l)> 

I— pi  to  «n»tch  til*  to  31E0  d  j  rectory) 

r*wrtt»(dieoctopy)f 
r»«et  (iMPi)) 
while  nor  eoi(>t*p<ii  do 
heoin 

while  nor  eotnitrtnd)  do 

htdln 

Pt*'i(t<«nd*eh)l 
wr i | eidi rectory, eh) t 

.  Pfhdlni  t  o<epd)  ; 

wr t t el n (directory)} 
end*  , 

wet  t«r>uf ; 

end  ;  <  eiott  I 


4 


4 


•  ‘  ^  !,  "  1  7T  i1  -» ^  ;  _ - - ——try-  1  ■  *■■■  ■  ■— —  - — —  .  -  _  .  .  . 

'  -■  '  '  ifT-Sy  •... 

•  n, /.v:.  .K^:  :w'-  •  -  y 

;v  :  .  ....  r'-? 


PKOCFOMHE  OPFN 


PURHOSF :  This  procedure  onenj  a  user  inputed  test  Hie. 

If  a  lil*  Is  currently  ooen.  it  is  closed  and 
th*  new  fit*  then  opened.  If  the  file  na*e  is 
not  specified,  a  user  promnt  is  oenerated.  The 
file  is  then  opened  hy  procedure  net  file. 


VARIABLES: 

inv  :  true  if  command  is  invalid 


) 


procedure  onen; 

war  cos  s  char* 

inv  :  boolean; 


Oe'jin 

(close  a  oeeviouslv  ooened  file) 

if  fileooen 

'"*n  no-sin 
rinse; 

filennen  :>  false; 
end; 

rewriref tesod); 
co*  :*  1  ’; 
inv  ;s  false; 

while  not  eoln(ineut)  and  (co*  <>  ct)  do 
heoin 
readteo*) t 
if  con  <>  rt 

t  sen  ii»  ii n 

if  not  enlntinout)  then  reheat  readfco*)  until 

•*<*lnf  inout  I; 

►r I t e Inter reepl; 
errent  :*  ereent  t  II 
inv  :*  t.j»l 


end* 

if  oof  iftv 

iif  oo  file  name#  oromof  user} 

then  henin 
4  f  folntinruf ) 
then  heoin 

«r i f e( ' f i len»i*?>' ) I 

readln* 

net  file* 

end 

el se  off  1 1 le# 

end* 

if  eoloiiooufl 

then  henin 
rcaciln* 
write!  *  t  *  • ); 

enri; 

errcnt  * =  <•* 

end  I  i  or>eo  1 


*■  tb.* \  -  if 


■  :Si. ■*:■;  '•> 

..  *  iiJKC?'.  •,  »  *T._  -v  •*  y  .  _*• 


-:V 


PBOCfiOUHf  ouu 


.POWOSf!  This  procedure  closes  the  currently  open  Hie  If  one 
exists  by  rat  lino  procedure  close. 

VARIABLES: 

inv  :  true  If  eoeeand  it  invalid 


) 


procedure  Quit; 

war  ch  :  char; 

inv  :  boolean; 

begin 

ch  j*  • 

inv  :»  false; 

while  not  eolnCInnut)  and  Ich  <>  et>  do 
Benin 
readfchi; 

If  ch  <>  ct 
the"  Benin 

if  not  <.olnfinout)  then  repeat  read(ch)  until 
an ln( input  1 1 
we i t  ef erresn) i 
errcnt  :*  t'rcnt  t  I; 

inv  :*  truel 
•  nil 

endl 

if  not  inv  an:i  fileonen  then  begin 
close; 

filennwn  :»  <.»!»•; 

•re c"t  •*  fti 
en-i| 

if  eglnfinout)  then  begin 
readlnl 

»n-»; 


end  * 


<  iii  1 1  I 


I 


PRPCFUURF  MKTTFHENU 


PURPOSE:  This  procedure  provides  the  SLED  user  with  a  descrip¬ 

tion  o»  the  various  commands  available  in  SLED.  It  can 
he  called  hy  the  user  typing  “M"  or  is  automatically 
called  it  two  invalid  commands  in  a  row  are  sub¬ 
mitted.  The  procedure  functions  by  utilizing  a 
file  “menu"  which  contains  the  SlEO  command  summary. 

The  file  is  reset*  a  character  is  read,  then  written 
etc.  until  eoln  is  reached-  Then  skip  down  to  the 
next  line  of  "menu*  write  the  line  just  read  and  rep¬ 
eat  the  process  until  eof  is  reached. 

A  cooy  of  the  command  menu  is  included  in  the 
program  documental  ion. 


I 


procedure  writemenuf 
begin 


reset (mmnu)f 

while  not  en ffmenul  <10  heoin 

while  not  eolnfmenu)  do  heoin 
read(menu*ch)« 

*ri tetch I 

end* 

reaul nfmentij  • 
writeln 
end* 

if  not  cmderror  then  heoin 
if  not  »ol«tinnut)  then 

repeat  r«  H(ch)  until  fch  *  ct)  or  eoln(inout)J 
»«  eolnf input t  then  neqin 
ro  t  iln! 
w'r » t  *  f  •  F  >  •  ) » 
end; 

end 

t*l«»  wr  i  t »( '  l  * >* i  I 


eng  •  <  »ntr**r>g  i 


f 


PROtEOURF  wRITtVCPS 


PuPPPSF :  This  oroeerture  provides  the  SlFl)  user  with  a  des¬ 

cript  inn  of  the  propram  version.  In  SLED  it  can  be 
called  hy  the  user  typina  a  "V*.  The  procedure 
functions  by  utilities  a  file  "version"  which 
contains  the  version  documentation.  The  file  is 
reset*  a  character  is  read  then  written  etc.  until 
eoln  is  reached.  Then  skip  down  to  the  next  line 
of  "version"*  write  the  line  just  read  and  repeat  the 
process  unt i I  eo*  is  reached. 

A  cony  of  the  version  format  is  included  in  the 
nro.jra*  documentation. 


o 

ui 


procedure  writevers: 


bed  in 


reset (version) « 

while  not  eotfversjnn)  do  tiepin 

while  not  eo I n( ver s i on  I  do  beqin 
readf  version*ch); 
write(ch) 

end* 

readlnfversinnl; 

wr i t “ I n J 
rod* 

if  oof  wolofi npn|  )  then  repe.it 
rej-ftch)  unr i I  (c»  :  c|l  or  eoln(input)? 
it  eoln  finruti  fhen  p-uin 
readlnt 
wrif«l  'I'1'; 
rt  "*  i 


I  d  r  I  t  ,  ■  »•  r  r  •;  » 


PROCEDURE  CHANGETERM 


T 


PURPOSE  *  This  procedure  Is  used  fo  change  the  value  of  the 

loaical  terminator  from  its  optional  value  of  S. 

Ihis  is  done  by  inputing  the  new  value  of  the  log¬ 
ical  terminator  from  the  console  and  assionino  it  to 
the  variable  "ct".  At  the  same  timer  the  SO  line 
buffer  is  scanned  and  the  logical  terminators 
within  each  line  of  the  buffer  are  scanned 
anu  chanaeo  to  the  new  valuer 

VARIABLES  : 

Variables  i  and  i  are  used  as  counters  in  repetitive 
statements.  Sub i  is  used  ns  a  temoorary  holder  of 
the  new  logical  terminator. 


> 


procedure  chanoeterm; 


var  i : integer; 
j  Sinteaer; 
suo j :eh*r» 

begin 


wr i t  *1 ni 

writelnCLNIFW  1  Mt  CHARACTER  OFSTRFU’); 
writelni’AS  A  hr-r  LOGICAL  MESSAGE  TERMINATOR ’) » 
writelnf ’MUST  St  A  PRINTABLE  CHARACTER’); 
writelnf’tudPft'l  IFK*’|MATOR  TH  ',ct  ); 

rendjn; 

write(*T>’); 

renif letter); 

for  i  :=  I  to  hufsice  do 

beni  n 

for  i  :  s  l  t  <»  lioesi»e  do 

n  -•  "t  j  m  • 

i  .►  i  ;=  ►■•.1*1  fit  .1  inest  rintifjl  ; 

i  t  snj  i  r  rt  t*'*.r  hpojn 


•nd 


end; 


bo*  f  I  i ) 


t in«st  r i n  j  I  j )  : 


«r 


* 


4 


l 1  er 


srHJ 

Ct  • -  l«tterj 

writplr>('UHjIC»l.  IFK^INATOB  CH»NGfcO  TO  #,cO 
readln: 

•£>*»; 

ernii  I  chanoatef*  > 


PHOCFDttHF  FRRORUUTTNE 


PORPOSF  :  This  orocedure  is  called  whenever  there  ere  two  eonsec- 

-- -  utive  input  mistakes  made  by  the  operator.  The  command 

menu  wilt  be  Printed  on  the  CRT  screen  to  inform  the 
user  of  the  oroner  procedures  for  data  display  and 
input.  Ihe  errorcount  is  reset  to  lero  whenever  this 
procedure  is  called  (  errcnt  is  a  global  variable  )• 
nhen  a  proper  command  is  entered  hy  the  operator*  the 
errorcount  is  also  set  to  zero.  Ihis  parameter  can  be  changed 
to  dir.nlav  the  command  menu  less  frequently  by  a  small  chanoe 
in  the  main  program. 


procedure  errroutine} 

oeqin 

wri temenu? 
errcnt  :s  0; 
enit  I  errroutine  I 


I 


MSJW  PROGRAM 


PURPOSE:  The  train  oroaram  is  utilized  tn  select  the  appron- 

riete  text  Hitlnci  procedure  utilizing  the  inputs 
from  te*  console.  Tt  also  performs  the  initial  , 

edition  of  these  innuts,  the  program  will  read  the 
first  I  or  ?  letters  input  to  the  console  (depending 
on  command  innut)  and  determine  which  procedure  must 
lit  entered  to  execute  the  desired  command.  Ihis  is 
accnmp I  I  shed  with  a  sequential  scan  of  a  series  of 
if  statements  in  which  the  first  letter  ana  if 
necessary  the  secnnd  letter  of  the  command  input  to 
the  console  is  checked  against  the  authorized  initial 
letter  or  letters  o*  SL;'D  commands.  If  the 
initial  editing  is  successfully  completed  in  one  of 
the  If  statements,  the  procedure  associated  with 
that  if  statement  is  entered.  The  remainder  of  the 
cnmmani  is  edited  in  the  called  procedure.  If  the 
sequential  scan  gets  through  the  last  if 

o  statement  ana  no  match  is  found  with  a  valid  command. 

10  tne  following  is  done: 


1.  Error  message  printed 

«?.  Increment  error  counter 

i.  Check  value  of  the  error  counter; 

it  lame  enough  enter  orocedure  to  write  command 
menu 

A.  Check  if  more  commands  follow)  if  not.  read  a  line 

S.  Return  to  statement  10  in  the  main  oronram 
and  read  the  ne*f  command. 


In  earn  if  statement  associated  with  commands  which 
wnuln  nave  fol low-on  parameters  after  the  initial 
|«trer(s),  the  status  of  the  error  count  is  checked  to 
ierer-sine  the  success  of  editing  in  the  procedure 
.in. >  i  •  m>rt ssarv  the  ernor  message  or  menu  is  printed. 

.  <tor  /•  w  r  r .  r»lurn  from  a  procedure,  the  program  ones  to 
»  tt , '  *rn  t  J  a  i(\-i  .(i-i  «  the  nest  command  e.ceet 
t-r  •*«-'  mi.  rr>*i  ini  w'licn  causes  thp  pronram 
(  n  1  r»  r  t  1  nat  n . 


VAOfAbLfcS  :  Th»  followin'?  global  varUhloi  arc  utlil  in  the  ■•In 

nronraa  : 

frrcnt  i  count  of  uaer  generated  input  error* 

raderror  i  boolean  uid  to  check  for  proper  input 
coaaand* 

fileopen  :  boolean  check  to  tnturt  that  a  file  i* 

opened  before  allowinq  the  procedure* 
to  operate 

letter  :  character  input  of  the  u*er 


begin 

ct  s* 

fileonen  s*  false I 

■rl telnj 
url telnS 

wrilelM'Sl.tn't; 
wr i t e In! 

uri  teln(  *Nel.n  fiFli  T VPF  FOR  ClIMMANO  PEHU*)» 

»rit»l"t  *0°  "if"  Fug  StSIF*  VFhSION* ) I 
wri te|n{ 
errfot  !S  0; 
cederror  : -  true* 
writr('t»,l; 


10:  readi I rt i er > : 


if  (letter  s  *1  * »  tnen  begin  if  fileopen  then  dfsplevlfne 
el*e  henin  writeln(*-no  file  open-’)! 
readlnf 
«ritef ’F>')» 
end! 

If  errcnt  »  I  then  errroutine? 
ooto  10 

end! 

if  (letter  s  *s')  then  beain  if  fileopen  then  ecreenline 
nit*  begin  Wrir>>nf*«*no  file  OP*n“ ' ) I 
re  Kiln* 

>  r  i  t  r  f  '  (  »  *  j  ■ 

**n  is 

if  errrnt  >  I  then  errroutine; 
ootn  til 

endl 

il  letter  r  * v •  tnen  begin  caderror  S*  fal*ef 


i 

(  jc- ‘XX  _ 

’  1 

■  ■  j?  , 

;  *  ^ 

. 

•  3 

i 

'  ~  •**.  -V 

4 

•’  ' 

* 

ptM 

ear 


•rmzT 


.-X 

~V 


f 


wri t  eeenul 

eerterror 


t  ruil 


•freni  t«  01 
00(0  II 


•ndl 


if  letter  *  *V  then  bfoln  Mriteverel 


•rrcnt  »*  *1 
Mll>  I* 


•ndl 


If  letter  s  *0*  t hen  bnqln  onenl 


errcnt  :*  0» 

QOt  o  14 


•ndl 

M  Utter  -  'Cl*  then  begin  quit)  <TOfo  1401 
ernli 

If  Utter  *  •*'  then 
benin 

reMlletteell 


If  (Utter  s  *L ' )  then  begin  if  fiteooen  then  apoendco* 
elie  heoin 

Mritelnf'-no  tile  open-*); 
reedlnl 
eritel'f*' II 
end! 

if  errcnt  »  I  then  errroutinel 

fioto  tO 

end 

else  begin 

errcnt  : -  errcnt  *  II 
ori teln(err*tn) ; 
if  errcnt  >  I  then  errroutine 
else  erite('t>,)l 
re»<*UI 


»n«l> 

if  letter  *  *C' 
►win 


end) 

if  Intfer  =  •»' 
heoin 


*)•(  b*oin 

errent  !*  (rrcM  ♦  II 
•  rii«tn(»rrMo)  t 

U  ifrcnt  >  I  then  ffrroutin# 
etif 

rn«<tlni 


ih«n 

l*t  ter  )  ) 

M  (letter  •  * T'l  then  begin  chengeter*) 


goto  10 


end 


errent  11 
goto  tO 


0> 


else  begin 

errent  i=  errent  t  It 
writeln(erreag)) 
if  errent  >  l  then  errroutine 
el  »e  nr i  te(  't‘> ' ) « 
readln; 


end 


end 


goto  10 


then 


read ( letter); 

it  (tetter  a  'IM  then  begin  if  fiteonen  then  replcoe 
et*r  hen in 

i.ri««ln('*no  file  open-’)) 

r»»(fln» 

eri»e(«F>')S 

enos 

it  errent  >  1  then  errroutine) 
goto  10 
end) 

if  (letter  =  *5')  then  begin  if  fiteopen  then  atreoco* 
e I *e  begin 

Mriteln(*  *no  lile  notn'll 
rei'ilni 

nrittCft')!  • 

eno  I 

If  errent  >  I  then  errroutine) 
got  o  1 0 

end 

el<s»  begin 

“I'-cnr  :  -  errent  ♦  I) 


«ls«  nr i tef *f »• ); 
r«*dlnl 


•nd 


90  to  19 


#nrl# 

(rrcrtr  :  =  errent  ♦  t; 
nriMI«{rrr*iq)} 

if  errrnt  >  1  than  trrroutfnr 
rite  «rir«( *F>* ); 

it  Irtlrr  <»  *  *  than  rtadlni 

ooto  10; 


100;  wr i t »  I  n ( *  ')i 

rn'I.  I  t-t»in  pronra»  I 


fun  $Lfn 


Mf»«i  <5l«j,n»«Ji)  Ptsc*l  IISFS  IH  THIS  VFHS10N  OF  SLED 
norainoa  iro»  to»  no  darfcolov  P»8C*L  tr*tUt«r  C  pi  **•  op*i 


on  > 


•  ?-IO  -  T t«p«*  of  r«< tat  and  *c*.M to  am  non-standard 
»  ?97  -  I .<■  *ro  lrr»*  of  r»*M  and  rrnrlit  or#  non-st andard 

9  -  two  »rw«n*  frns*  of  rrifl  a no  rowPito  arc  noiriltndard 

9  l?>  -  T*,<*  *rnir»nr  toms  of  rufi  and  ranrlt*  nra  non*itindard 
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